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CONTACTEZ-NOUS : 
STÉ OLITEC, 20, rue de Remenauville - 54000 NANCY 
Téléphone : 83.35.00.65 


SYSTÈME EXPERT 


pour Macintosh 





Installez un Système Expert aux fonctionnalités professionnelles FONCTIONNE EN 
sur votre Mac (128 K, S12K,512/800 eu MacP lus) : + Chainage avant 
e Creation, modification, sauvegarde de ves propres «Bases de e Chainage arrière 


Connaissances» pouvant centenir jusqu'à 250 Règles exprimées 


e Vérification 
en français courant 


e Chaque Règle peut comporter de 1 à 6 conditions d hypothèses — 

e Liste et Dictionnaire des Bases de Règles et de Faits + Modes déduction 

e Moteur d'inférence fonctionnant en logique propositionnelle et vérification 

e Simplicité d'utilisation, exploitant toute la convivialité du Mac assistées, proposés 
Loai S S ecri 5) 

e Logicie} structure ecrit en Microsoft® MBASIC 2 0 automatiquement 


e Programme source livré non protégé 


e Logiciel proposé complet, port inclus, au prix de 350 F TIC en cas de non- 


résolution 





Commandez des aujourd'hui votre disquette, contenant le Programme seurce + Mode d'emploi et Documentation 
complete + 3 Bases de Connaissances preposées en exemple (que vous pourrez éditer et modifier } 
en Botanique, Diagnostic automobile et Graphologie 


Adressez votre cheque à BOYER-LARUET, 22 Soudanes, 78430 EGUVECIENNES 
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Disquettes d'accompagnement 
Apple // : DOS & ProDOS, 


800 Ko et 140 Ko 


À partir de ce numéro, les disquettes 
d'accompagnement de la revue vous sont 
proposées sous deux formes : 140 Ko 5,25 
pouces et 800 Ko 3,5 pouces, et ce, pour penser 
à nos lecteurs qui ont ‘craqué’ pour le IIGS et 
qui n'ont plus de drive 140 Ko. 


Autre nouveauté, nos disquettes 140 Ko vous 
sont proposées en double face : 
- Recto formaté en DOS 3.3 


- Verso formaté en ProDOS 
/POMS?29/) 


sans changement de prix : 60,00 F. 
La disquette 800 Ko coûte 80,00 F. 


Les deux faces de la disquette 140 Ko et la 
disquette 800 Ko comportent tous les fichiers 
relatifs à la revue sans tenir compte du 


(nommée 


Fichier DOS ProDOS Remarques 
RECHERCHE 
T.RECHERCHE 
DHGR.DEMO 
DHGR 

DHGR PIC 
T.DHGR 
KYRAM 
T.KYRAM 
INDEX 

BLOC 
T.INDEX.CODE . 
T.BLOC.CODE ° 
KRUPTOS 

KRUPTOS.S e 
KRUPTOS.CODE 

SECRET . 
SIMPLEXE ° 
PATISSERTE 


SOurTe 


source 


source 


source 
source 


Source 


source 
source 


> 
3 


GRAPH.VIDEOTEX 





système d'exploitation nécessaire à tel ou tel 
programme : vous pouvez ainsi récupérer les 
fichiers plus facilement pour les adapter ou en 
extraire les routines. 


Pour plus de commodité, sur la disquette 800 
Ko et sur la face ProDOS de la disquette 140 Ko, 
mettez les metiers, ‘ProDOS’ et 
‘BASIC.SYSTEM’ pour que vous puissiez 
démarrer directement. 


Voici la liste des fichiers des disquettes 
d'accompagnement de ce numéro avec 
indication du système d'exploitation supporté 
pour leur fonctionnement. Bien entendu, les 
sources (tous en format TEXT) peuvent être 
utilisés indifféremment avec DOS et ProDOS. 


objet exécutable (BRUN) 


programme de démonstration Basic (RUN ou -} 
objet appelé par DHGR.DEMO 
image DHGR (Extasie) utilisée par DHGR.DEMO 


objet exécutable (BRUN) 


objet exécutable (BRUN ou -} 
objet exécutable (BRUN ou -} 


objet exécutable (BRUN ou -) 


objet non exécutable 

fichier à décrypter par vos soins 

programme Basic (RUN) 

fichier de démonstration utilisé par Simplexe 
programme WPL pour AppleWriter 

objet à ‘bloader’ pour patcher AppleWriter 
objet à ‘bloader’ pour patcher AppleWriter 


programme Basic (RUN) 








Éditorial 


Enfin, nous venons de voir la sortie du Mac ouvert, baptisé Mac II, et du Mac SE (Super- 
Entrouvert ?), ainsi que l’apparition de toute une famille de nouveaux produits Mac, présentés 
dans ce numéro. Le show typiquement “Apple” pour la sortie de ces nouveaux produits nous a 
convaincu, une fois de plus, que cette société doit détenir le brevet d’une nouvelle unité de 
mesure informatique, le Mo (Mégalo-octet). 


Le plaisir de voir apparaître ces nouveaux produits a été quelque peu estompé par la dispari- 
tion, depuis la sortie de notre dernier numéro, des revues Golden (disparition complète) et In- 
fomag (transmutation ?)., Après avoir été la première revue dédiée à une famille de matériels 
micro, serons-nous la dernière ? Il est certain qu’il en reste aujourd’hui à peine une dizaine, sur 
les plus de 50 créées depuis le premier numéro de Pom’s. Rassurez-vous, l’équipe de Pom's dis- 
pose toujours de l’enthousiasme et du dynamisme de tout ‘micro-maniaque” mais également de 
curiosité face aux nouvelles machines et de projets qui se concrétisent au fil des numéros. 


Avec ce numéro, nous vous proposons sur la disquette Macintosh 29 (et probablement de façon 
régulière sur les prochaines) des logiciels domaine public ou Mac Honor. Bien entendu, nous jes 
mettons sur nos disquettes sans en modifier le prix. 


Autres nouveautés : 


* les disquettes Apple // existent aujourd’hui en 800 Ko ProDOS et 140 Ko DOS et ProDOS... 
sans modification de prix, 

° EPE 5.1 fonctionne sur l’Apple cs et existe sur disquette 800 Ko, 

* BananaSoft, une nouvelle disquette qui jette un pont entre l’AppleSoft et le Basic Microsoft 
Six 


Nous vous donnons bien entendu rendez-vous à Apple Expo, pas immédiatement, Apple ayant 
décidé de maintenir le lieu de La Vilette, mais de modifier la date : début octobre. 


Hervé Thiriez 
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Recherche d’octets 





Patrick Covare 


Ce programme permet de recher- 
cher, en mémoire ou sur dis- 
quette, une expression quelcon- 
que. 

ll peut être très utile, par exem- 
ple pour retrouver tous les appels 
à une routine quelconque, 
l'endroit où une mémoire particu- 
lière est modifiée, etc. 


Écrit en assembleur, le 
programme est rapide. Les 35 
pistes d'une disquette sont 
examinées en moins de 30 secon- 
des, et une recherche en mémoire 
ne demande que 2 ou 3 secondes 
pour 64K0o, 


Commandes 
disponibles 


BRUN RECHERCHE lance le 
programme pour la première fois. 
Par la suite, on pourra 
indifféremment utiliser & 
(l'ampersand) ou Ctrl-Y à partir 
du moniteur. 


Les commandes ‘A’ et ‘Z’ 
permettent de définir les adresses 
hexadécimales de début et fin de 
recherche en mémoire vive. 


Ces adresses ne peuvent se situer 
ni dans l'espace $C000-$COFF 
réservé aux entrées/sorties (sinon 
bonjour les dégâts'), ni dans la 
plage $9500-$95FF où est 
conservée l'expression à recher- 
cher. Pendant l'exécution, ces 
plages sont automatiquement 
évitées par le programme, 


Si l'adresse de départ est 
supérieure à celle de fin, 
RECHERCHE boucle sur $0000 
après avoir examiné l'adresse 
SEFFE. 


Les commandes ‘P’ et ‘F’ 
permettent de saisir, toujours en 
hexadécimal, les numéros de 


pistes de début et fin de recherche 
sur la disquette. S'ils sont 
identiques, la recherche ne 
s'effectuera que sur une seule 
piste. 


La commande ‘D’ autorise le 
changement de lecteur (I ou 2). 


La commande ‘E’ permet 
d'entrer une expression à 
rechercher, expression composée 
au maximum de 256 caractères. 


Très pratique : inclure des 
caractères incomus (wildcards) 
en tapant un ou plusieurs ‘=". Par 
exemple : "20 == FB" trouvera 
les appels à COUT ($FBREDB), 
COUTO ($FBFO), KEYIN 
($FD1B), erc. 


Afin de ne pas surcharger l'écran, 
seuls les 11 premiers octets sont 
affichés sur le menu ; néanmoins, 
l'expression étant conservée à 
l'adresse $9500, elle peut être 
visualisée par un simple appel du 
moniteur. 


Les commandes ‘R° et ‘S’ 
lancent une recherche en mémoire 
ou sur disquette. 


Dans ce dernier cas, la touche 
ESCAPE permet d'interrompre la 
recherche en cours. 


Si des expressions identiques 
sont détectées, leurs adresses, et 
éventuellement les numéros de 
pistes et secteurs, sont affichés. 


Si rien n'a été trouvé, on revient 
au menu. 


Pour une recherche sur disquette, 
l'adresse et ses deux derniers 
chiffres complètent l'affichage. 


Exemple : 


$862A PIS 12 S:$9 

informe que l'expression a été 
trouvée à l'octet $2A du secteur 
9, piste $12, et qu'elle se trouve 





actuellement en mémoire à 
l'adresse $862A. 


Lors d'une recherche sur la 
disquerte, les pistes sont chargées 
une à une, dans un buffer situé en 
$8000-$S8FFF. Les secteurs y 
sont stockés dans l'ordre inverse 
(afin d'améliorer le temps de 
traitement) : page $80 pour le 
secteur $F, $81 pour $E, jusqu'à 
$8F pour le secteur 0. 


Bien entendu, le programme se 
charge également de l'affichage 
lorsque l'expression est trouvée 
plusieurs fois sur la même page 
ou le même secteur (ce qui n'est 
pas le cas de Nibbles Away). 


La commande ‘M? dirige vers 
le moniteur de l'Apple (retour par 
Ctri-Y). 


La commande ‘Q’ permet de 
quitter le programme. 


Fonctionnement 
technique 


La configuration mémoire sui- 
vante est utilisée : 


$0000...$000A 
vecteurs page zéro ; 
$8000...$S8FFF 
buffer de chargement d'une 
piste ; 
$9000...$94A0 
implantation du progranumne ; 


$9500...$95FF 
buffer de l'expression à 
rechercher ; 


$9600...$96FF 
buffer des caractères inconnus. 


Le listing source est amplement 
commenté et ne devrait pas poser 
de problème de compréhension. 
Cependant, il est bon de détailler 
l'algorithme de recherche. 
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Le sous-programme de comparai- 
son utilise les buffers EXPRESS 
et WILD, initialisés lors de la 
saisie de l'expression. EXPRESS 
contient la suite d'octets a recher- 
cher, WILD stocke l'emplace- 
ment des caractères inconnus. 


Prenons un exemple. Soit 
l'expression saisie “A8 =B F3”. 
Le buffer WILD, utilisé pour 


effectuer un ET logique, contient 
la valeur ‘FFOFFF. Le zéro 
indique la présence d'un caractère 
inconnu. Le buffer EXPRESS 
contient les codes ‘A80BF3”. Les 
espaces tapés au clavier Ont été 
supprimés, et le troisième 
caractère a été remplacé par un 
ZÉTrO. 


Si, lors de la recherche, le 


programme rencontre la suite 
d'octets ‘A8SBF3’, celle-ci est 
considérée comme identique car : 


AB AND FF = AB 
5B AND OF = 0B 
F3 AND FF = F3 


ce qui correspond exactement au 
contenu du buffer EXPRESS. 7 


NE: 








é , 80 DEX <Nao, ae poursuit le test. 
Source ‘T.RECHERCHE æ A ane 
Assembleur BigMac 62 JSR BELL ‘La touche eceit incorrecte -—> BIP, 
93 VHP CHOIX sPvia retour Pour uhe eutre lecture clavler. 
PRCLELLELELEEE EE CEE EE LEZ ZI TELLE EE TTL) 84 8ON TXA rLe nurero de ligne de l'option choisie 
PR . 85 Asz iest multiplie par 2, 
 Ld = RECHERCHE -—- . 86 STA OPTION ‘et sauvegarde en memvire. 
4: . 67 * 
5 + PATRICK COVARE 02/1986 . Q8 soromsisorassasonmradansanaandat 
ce . 93 * 
7% Assenbieur Big Mac , sa JOBABPE CPx M4 + ROUTINE DS MODIF AOR£SSES MEMOIRS ET PISTES * 
É vrsonorooteterenanetastomtonaremsansee $#t 8CS JO8D rSeut e JOBD si opcios <> A,2,P où ?. 
; 92 ADC #65 
10 93 JSR TASV tinitialisation verticale, 
fl #DEBUT = $0 sAdresse de dabut de rerherche memoire 94 ILDA #20 
12 #FIN . $2 “Adresse de fia de recherche nonsire 85 STA CE jet horirontale du curseur. 
13 PDEGT = $4 “Piste de debut de recherche aur disquette 96 LDA #°5" 
14 MDRIVE = 55 zNunero du lecteur en service s7 STA PROMT ‘Nodif du proapceur pour l'affichego d'ua $. 
15 PFIN - 56 Piste de fin de recherche our disquette 38 JSR GETLN “Lecture du clavier. 
16 LONG _ 57 <lonÿveur de l'expression a rachercher 9 JSR 2MODI 
27 OPTION «= sa JMrxero de l'oprion choisi® multiplie par 2 100 J5R GETNUN ;Sauvegarge dans AZL, AZN. 
18 TOUR - $3 :Corpteur vtilise por Plusieurs routines 101 O$I A=t-on entre une chaine vide? 
is - SA rHesoire utiiisee per la routine MENU 102 SEC SsCIN Oui. racour au menv. 
29 CH - 524 10) LDX OPTION 
21 PROMFT = 533 104 CPX #4 :@ption choisie = À ou 8 ? 
22 AL . $2E 105 8cc 2} Oui, saut e &!, 
23 AH - $3F 106 LDA AZ2L éNon, 41 8'agit donc d'unu modif de piste, 
24 LOCRNTS = $3E3 407 CHP  #523 set on verifie je nunerc indique. 
25 ANFERS S3F5 iou ac 32 t8ranchemenec on 37 s1 piste < 35. 
26 CTRLY - $3F8 103 ERREUR USR BELL Sinon BIP, 
17 EXPRESE = $3500 «Buffer contenant l'expreezion a rechercher 110 JMP BEGIN PUIS renouf au ment. 
28 WILD - 39600 sBuffer de position des ceracteres inconus dii ëê1 LOA A?8 
29 ANTS - $8755 117 CHP  #$93 sPactie haute de l'adcesse = 595 ? 
JG RNORV - SRT£A 143 BEQ ERREUR 4C'est interdit -—-> BIP, 
31 RHVEN - $a7£8 114 CNP 95c0 Partie havtede l'adcesse = 5C0 ? 
32 RW#PST _ SB7EC 115 BEQ ERREUR C'est egeleseat faterdit --> BIP. 
33 RWSCT . SB7ED 116 STA HMDEBUT+I.X :Sauvegarde 
34 RWBUF - $87F0 117 LA AL sde 
35 RNRSAD = SE7P4 dis 22 STA NDEBUT,X :l'adroese, 
36 PRNTAYX $SFs41 dis UNP BEGIN Jet retour au menu. 
37 ALANX - $F94A 120 * 
38 TABV - $SEFBSB 121 ttechoccconérarenatéeseteeesente 
39 HONE SFC58 la « 
49 CLRSOL $SECsc 123 JOBD CEX #5 * ROUTINE DE WODIF DU NONERO DE LSCTEUR * 
41 RDKEY - $#D0C 124 8CS JOBS Saut à JOBE &i option © D. 
42 CETIN - SFB6A 125 DEC MORIVE “Si MDRIVE®Z => GDRIVE=1, 
43 CETENP - SFD6F 126 ANE DRIVE 
41 CROUT - $Sr85è 127 LDA 92 et inversement, 
45 PRBITE - $SFBDA 128 STA RDRIVE 
+6 PREEX - SFDE3 129 DRIVE ÆDA  MDRIVE Affichage 
47 COUT - SPDED 330 ORA #550 ea mode noçaai 
48 SSL - SFF3A 191 STA S6cP sdu numero de lecteur. 
49 MONZ SFF63 132 JKP CVOIx jet tetour Pour uee autre lecture du clavier. 
S0 CETNM SFFA7 155 * 
52 2NODE = SFSC7 1I4 sonossossoscrocosasésassssessese 
s2 135 * 
SJ 136 JOS£ CPX #6 * ROUTINE SAISIE DE L'EXPRSSSION À RECAERCHER « 
S4 ORG $9000 127 &C£5 JOBE <Saut # JOBR si option © &E. 
55 087 $93000 138 LOA #15 
56 139 JSR TASV tInitialisntion verticale, 
S2 140 LOR 68 
s8 LDX #7 +Chargement de la chaine d'initialisation 14! STA CH jet horizontale du curseur, 
$3 ZNIT LOA CODINIT,X :pour le ler affichage du menu. 142 JSR CLRBOL “L'ancienne expreasion est effacee. 
Lie] STA NDESUT, X 14) JSR GETEXE ‘Lecture du ciavier, 
61 DEX 144 DEX 
62 BEL INIT 145 BNI STOP sRetour au menu si on entre une chaine vide. 
63° 146 
CRE ECCESECEE ES RCE S 147 12x 40 2VERIF DE CHAQUE CARACTERE DE L'EXPRESSION 
65 + 148 1DY 60 
66 BECEN LDA #54C sloftiaiisotion des vecteurs 149 ENCORE  LDA #2 
67 STA AMPERS { AMPERSAND ec 150 STA TOUR 4TOUR=“Z —> debut de verification d'un octet. 
68 STA CTRLY “<CTRL Y 151 LDA #0 
69 LDA #8ECIN 152 STA EXPRESS, X 
70 STA AMPERS+I 153 ADR 6$FF 
71 STA CFRLYrI 154 STA WIID.X 
73 LADA #>BEGIN 155 IN LDA $200.7 Chargement d'un caractere. 
73 STA ANPERS+2 136 INr 
74 $STA CTRLYe2 157 CNP 65A0 «Eat-ce un espace? 
75 JSR MENU “Affichage du menu, 158 850 IN ‘Oui, On passe eu caractere suivant, 
76 CHOIX USR RDREY ‘Puis leëture d'une tauche. 158 CAB Te" :Eac-ce Un caractose inconnu? 
27 LOX #9 160 BFC ÉGAL Oui, on saute 0 RGAL, 
78 VERIF CMP JOB, X “La touche enfoncese asn-elle valide? 164 ÉOR #$5B0 
79 8EQ BON :Ovi, on saute a BON. 162 CHP #50 +Est-il compris entre 0 et 9 ? 
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163 

164 

165 

166 

167 

168 STOP 
169 DIGIT 
178 

171 

172 

173 

174 EGAL 
195 

176 

277 

178 

173 BGALZ 
180 

181 

132 

183 DEUX 
184 

185 

186 

187 

188 

193 

190 

191 

182 

i93 

154 

195 

136 * 


EXPRESS, X 


‘Oui, on eeute a DIGIT. 


sÉst-il compris entre À et F ? 
Oui. saut a DIGIT. 


«Non, on sauvegarde le iongbeur de i expression, 


<et on retourre eu menu. 


:Si TOUR=O, un ler caract a deja ete verifie, 
‘et on se branche alors a DEUX. 

Sinon, on sauvegarde le ler carnctere, 
‘buiz on saste & IN pour la verif du 2ece. 


sSevt a ÆGAL2 si TOUR=O. 
:0n charge le buffer WILD avac ‘'O£', 


48t on selte a IN pour le taste du 2eme caract. 


sNodifioatios du buffer WILD, 
et 0 dans l'accu peur modif du buffer EXPRESS. 


«Décalage à geuch# de ler carscters 


EXPRÈSS, X 


EXPRESS, X 
EXPRESS, X 


ENCORE 


tatecka preceSenment dans EXPRESS. 


“Salvegarde du aacond caractère, 


4et verificatioe de l'ootet suivant. 


197 temnantananantanmanannananaius 


198 * 
199 VOBR 
2çû 

201 

202 
203 
204 
205 
206 
207 
208 
203 
220 
Z11 
212 RTI 
213 % 


CPX 


+7 


TSTA+1 
ADEBUT+] 
TSTA+Z 
MFIN 
FINYST+] 
NFIN+1 
FINTST+8 
TEST 
B8GIN 


* ROUTINE UF RECHERCHE EN MEMOIRE * 
“Saut à JOBS si option <> R. 


sRetour menu si expr source de longueur nulle. 
iInitialisation 


ravac les perenetres 
#sdefinie pac l'utliiseteur. 


Saut a le routine de comparaison d'octecs. 


214 tetrentoms ts sets etats ass sutss 


215% 
216 JOBS 
277 

218 

219 

220 

221 

222 

223 

294 

225 

226 

227 

226 

228 

230 

231 

232 

235 

234 

235 

236 DISK 
237 

238 RSAD 
239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

219 

250 

251 

252 

253 INCPST 
254 VRFPST 
255 

256 

257 

258 ERR 
259 

260 

261 

262 

263 RT2 
264 * 


RPR£AD 
#580 
RHBUF+1 
#50 
FINTST+8 
VREPST 
#5e 
RNSCT 
LOCRHIS 
RNTS 
ERR 
RWSUE #1 
RPSCT 
REAS 
#580 
TSTAr 2? 
RNEUF+YI 
TÉST 
SC000 
INCPST 
SC010 
#538 
RT2 
RAPST 
PPIN 
RHPST 
BISK 
BEGIN 
ROHE 
4IOERR 
#>IOERR 
AFFICRE 
REY 
BEGT# 


+ ROUTINS DE RSCRERCRE SUR LA DISQUETTE * 
“Saut a JOBM si option <> S. 


sretour menu ai æxpf solcce de longueur nulle. 


sInitialisation 

“des routines RATS et TEST 
avec les Psrazatras 
édefinis por l'utilisateur. 


SRATS en sode lecture. 
‘Adresse havte du buffer de dets RTS. 





‘Adresse haute de £in de recherche. 


Numero du Ier secteur a lire. 
Lecture d'un secteur. 


Branchement a ERR en css d‘anosalie. 
sinccenentetion du buffer de lecture. 
Decremestnticn du nuaero de sectevr a lire, 
*Sact #41 lactvre plate pas oncorte terminee. 
‘Adresse haute du buffer de ciata RWTS. 


«Saut a la roetins de comboraison d'ectets. 


A-E-0n APPuÿy®e sur une touche? 
*sNon, on passe a la Piste euivanrte. 


S'il s'agit de la touche ESCAPS, 
jon retotrne au »onv. 
+Incrementation du numero de piste. 


“Fsut-i} lice d'autres pistes? 
Oui, saut a DISK. 

“Non, on retourne au menu. 
“Affichages d'un messaÿé d'arreur. 


Lecture d'une touche, 
“Puis retour av menu. 


265 seocsssooomenrenteanossoenenonece 


266 * 
267 JOBM 


CPX 


#3 


* ROUTINE D'APPEL DU MODE MONITEUR * 





276 RTN@N 


282 * 


283 Mromcerkamaemomsmars tente 


284 * 
285 JO20 


303 PRTADR 


324 CR 


331 INCRI 


337 T1 


338 FINTSY 


345 QUEST 


352 T2 


JSR 
JP 


J088 
SATHON 
CTRLY+1 
#>RTHON 
CTRÈYr2 


HONZ 


OPTION 
#16 
RTz 
QUEST 


HOME 
$300 


#0 

TOUR 

CL 
SFFFF,Y 
NILD,Y 
FAPRESS.Y 
INCR 


AFFICHE 
#13 

CH 
RNWPST 
PREYTE 
423 

CE 


QUEST 
TSTA+1 
TI 
TSTA+È 
TSTA +2 
9595 
INCRÈ 
#sco 
INCRE 
TSTA+1 
4500 
FSTY 
TSTA+#2 
#500 
TSTY 
TOUR 
AT3 
6RBDCHX 
4>AXBOCHX 
AFFICHE 
RDREY 

CL "LS 

T2 

JO8N 
#598 
CONT 


“Seut a JO80 si option © #, 
:Tnitiaiise le vecteur CTRL Y, 
“Pour un retour a RTHON. 


“Entree dans le roniteur. 
rReinitialise ie pointeur de pile. 


:Le moniteur a-t-il ete appels via le zenr? 
Qui, on retourne au depart. 
Non, on se branche dane ls routine de ‘est. 


monmses 


* ROUTINE DE SORTIE DU PROGRAMME * 





* ROUTINE DE CSMPARAISON DES OCTETS * 
“Menorise le nombre d'expressions retrouvees. 


Charge un octet a tæater, 
“aodifie l'aocu si c'est Un caract inconnv, 
‘Puis œPpore avec l'expression smiurce. 


Saut a INCR si ce n'est pas identique. 


«ERBrassicn saurce entiarement tescee? 
No», on continue lez campetaiscne. 


+Pas d'effacement d'ecran si TOUR > O0. 


Affiche un S. 


rAffichs l'adresse de l'exprassion retrovves. 


s$eve a CR s'il s'agit d'une recherche aemoire. 


sAffiokhe 'P.S' et 'S.5', 

Place le curseur en colonne 13. 

“Affiche le numero da la piste. 

Place ensuite le cursevr en colonne 83, 
+Adr e haute du 16eme secteur lu par RNTS. 
:Calcule et 


affiche le numero du secteur. 
sS$eute una ligne. 





«22 expresslons ont-elles ete recrouvees? 
zQui, assaut a OUEST. 

iIectemeete la Partie basse de l'edr de test, 
ute a T1 si le resuiter n'est Pas nul. 
rente ia partie haute de l'adr de test. 






«Sommes-nous dns le buffer EXPRESS? 
“Qui, oh Pasase a l'adresse suivante. 
Sommes-nous dans iles £/S ($CO00..$COFF) ? 
“Oui, on passe a l'adresse suivante. 


sEst-ce ls fin de 1a rone e tester? 


é<Non, on continue les conperalaons. 

:0es expcessions ont-eiles ete retrorvveee? 
sNon, retour au progri e Arincipai- 
sAffiche "M=MONITEUR ...' 





“£æecture d'une touche. 
‘Est-ce un K ? 


“Qui. saut a la routine moniteur. 
rFet-ce la touche ESCAPE ? 
:Noo; saut a CONT pour concinier. 


;Ovi, on srnule 1 ‘edresee de retour, 


Jet on se rebranche au depare. 





:La fiv du test estelle ternin 
“Qui, retour eu progrannre principal. 
Non, il reste envore des ectets a Coster, 


relors, en continue lee comparsisoss. 





#0 

[et] 

TABV 

#10 
BLANK 
SAFFMENU 


* ROUTINE D'AFFICHAGE DU NENU © 
:On Place le curseur a gauche 
ret en haut de jl'ecren, 


‘Puis on affiche le mevv. 
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373 ADx #>AFFRENT 433 AOR 
374 JSR AFFICRE 414 BCS P3 Saut a PJ ai le Îeme caract de l'octet <> ‘=', 
373 LOA #13 435 LDA #=" 
276 STA CA 436 JSR COUT sAf£iche je si90e =. 
377 JSR ECRAN 437 JM P4 
278 438 P3 LDA SXPRESS. X 
379 êDA 65 “AFFICRAGE DES PARANETRES ADRESSES ET PISTES 433 ER PRHEX “Affichage du Zems caractare. 
330 JSR TABV ‘Le curseur est Place sur la ligne 5. 440 P4 INC CK rSaute vn espôce. 
381 LDX #0 441 INX 
342 Dr 435 «i2 DEY 
383 DOLLAR STY CR tInitialisation horizontale de curseur. 449 BNF &NCOR “Saut s1 l'affich de l'expr e'est Pas termine. 
384 LOA 4"s" 44 Cues LBA #35 
383 JSR COUT “Af£fichsge d'un $, 445 STA C “Place le curaeur en bes du menu, 
386 CPX #1 446 JP TABVSAS <Puis retour Vie le RTS de TABVBAS. 
387 B8CS TWO Saut si le parametre ne comporte que 2 caract. 447 * 
386 LDA NDEBUTr1,X 448 rss esssssssesestereeseretesenr 
328$ JSR PRBYTE sAffiche 2 caracteres. 449 + 
330 TWO 1DA HD£SSUT.X 950 AFFICHE STA ÉCRIN+] * ROOTINS D'AFFICHAGE SUR L'ECRAN * 
391 JSR  PREYTE “Affiche 2 Ceracteres, 451 STX ECRAN+Z zÀ et X coutiennenc l'adreese du message. 
392 JSR CROUT ret saute une J'ÿgre. 452 12X #0 
297 INX 453 ECRAN LOA SFFFF,X «Charçesenc d'un carectere a afficher. 
394 INX 454 BPL DERNIER z$i bit 7-0, il s'agit dv dernier caractere. 
393 CPX #4 455 CHP #%,° 
236 B8CC DDLLRR +Saut si le 2ene parametre pas encore affiche. 45€ &SME AN 
397 LDY #37 457 JSR CLR£EOL «Si C'eat une virgule on efface ia fin de iighe, 
336 CPX 16 45e LOA éS8D “et on charge l'accu four UF aaut de 1igne- 
399 B8CC DOLLAR “Saut si le fene Paranetre phs mncore afsiche. 459 MON JSR COUT Affichages du caructese. 
409 460 INX 
401 LDA MDRIVE AFFICHAGE OU NUMERO DE LECTEUR EN SERVICE #6i JNP  ECRAN 
402 ORA 4580 462 DFRNIER ORA #$80 
403 STA S$6CF 463 JSR COUT Le dernier caract est affiche en mode normal, 
404 464 INX 
405 LOY LONG AFFICHAGE DE L'EXPRESSION SOURCE 485 JMP CLREOL ‘la fin de ligne effacee, puis RTS via CLREOL, 
406 aF0 CURS :Seut a CURE si exPressicn de longueur nvile. 466 * 
40? CPY 612 Expression < ]2 actets? PTE ALL LELLELET TELLE LEE EEE LIT T TT 7] 
403 8CC INF +Oui, on sauce a INF. 468 + 
409 LoY #1i Non, on limite l'affich aux 1] presiers octets. 463 COINIT NSX OOUOFFFEUO912200 
s10 inF STE 1€ 470 
41 Lon #5 471 508 ASC  "AZPFDERSHQ" 
«12 JSR TA2V 4On Place ie curseur sur 18 ligos 15, 22 
119 LOA #41 473 AFFMENU DCI -- RECHERCHE D'OCTETS =, * 
4ts sec <Puis on calcule, 474 ASC “(PATRICK COVARE),.," 
ais SBC LC 475 ASC TA - HAMOIRS DEBUT,, ” 
4i6 Ss&C 16 ‘selon la longveur de l'expression, 476 ASC "Z - MEXOIRS FIN.," 
‘17 s& LG 477 ASC "P - PISTE DEBUT, ,* 
418 STA CH ;la positien Aoricontale du curseur. #78 ASCOREE PESTE REIN TE 
419 £OX #0 473 ASC "D - ORIVE.. " 
420 ENCOR LOA NILD, ‘Debut d'affiehege d'un acte de l'expression. 480 ASC "F - EXP.,," 
421 pha 481 ASC "AR - RECK MEMOIRE, " 
412 BHI pP1 Soeur a Pl gi ie ler caract de l'octet <> ‘et, fes ASC e ” RCE DSC ESE 
423 2DA =" 483 ASC "M - NONITEUR., 
414 JSR COUT Affiche le eigne = 192 CONTENT: ARR CIE 
429 JP P2 Le rs a 5" 
426 P1 LDR EXPRESS. X se 22 ES, ss 
se LE 488 XSDCHX OCT “-M=MONITEL'R SPCONTINURR  ESC<MENU * 
425 LSR Ci 
430 LSR 490 IOERR &Ex LH 
. Fa Pare PRHEX Affichage du ler caractere. e TABVAAS HA pet ACT RRCIURE DISQUETE ESS TAPES (MENTON RE 
55 VHb $E858 
# e e 
Récapitulation 9088:85 05 AS 05 09 B0 8D CF 9150:91 8C 47 92 C8 8C F4 B7 
é J; 9090:06 4C 25 9 EO 06 BO 7A 9158:A9 80 8D F1 B7 A9 90 8D 
RECHERCHE 9098:A9 OF 20 5B FB A9 08 85 9260:4E 92 4C 94 91 A9 OF 8D 
90A0:24 20 9C FC 20 6F FD CA 9168:ED B7 20 E3 03 20 B5 B7 
Aprés avoir saisi ce code sous 90A8:30 2C A2 00 A0 00 A9 02 9170:B0 2C EE F1 B7 CE ED B7?7 
moniteur, veus le sauvegarderez par : 90B0:85 09 A9 00 9D 00 95 A9 9178:10 FO A9 80 8D DE 91 8D 
BSAVE RECIHERCHE,AS0000.LS4 AI 90B8:FF 9D 00 96 B9 00 O2 C8 9180:F1 B7 20 C6 91 AD 00 CO 
90C0:C9 AO FO F8 C9 BD FO 1D 9188:10 07 2C 10 CO C9 98 FO 
9000:A2 07 BD 46 93 95 00 CA 90C8:49 BO C9 0A 90 OB 69 88 DAIOA EE" EC B7s AS 06NCD/ EC 
9008:10 F8 A9 4C 82 F5 03 8D 90D0:C9 FA BO 05 86 07 4C OA 9:198:B7 BO CA 4C 0A 90 20 58 
9010:F8 03 A9 8A 8D F6 03 8D 90D8:90 29 0FAG600 9 E0V IC "ID 91AO:FC A9 6C A2 94 20 20 93 
9018:F9 03 A9 90 8D F7 03 8D 90E0:00 95 4C BC 90 C6 09 FO 91A8:20 OC FD 4C OA 90 EO @9 
9020 :FA 03 20 7D 92 20 OC FD 90E8:08 A9 OF 9D 00 96 4C BC 91B0:FO0 1E A9 C5 8D F9 03 A9 
9028:A2 09 DB 4E 93 FO 09 CA 90F0:90 BD 00 96 29 FO 9D 00 91B8:91 8D FA 03 20 58 FC 2 
903010 F6 20N3A FEU IC" 25 90 90F8:96 A9 00 48 BD 00 95 OA 91CO:EDVFPD 4C 69" FF EG EENAS 
9038:8A OA 85 08 EO 04 B0O 3E 9100: 0A OA OÀ 9D 00 95 68 18 91C8:09 C9 10 "FO DE 4C 55 92 
9040:69 05 20 58 FB A9 14 85 9208:7D 00 95 9D 00 95 E8 4C 91D0:20 58 FC 4C DO 07 A9 00 
9048:24 A9 A4 85 33 20 6A FD 9110:AE 90 EO 07 BO 1E A5 07 91D8:85 09 AO 00 B9 FF FF 39 
9050:20 C7 FF 20 A7 FF 88 FO 9118:F0 17 A5 00 80 DD 91 AS 91E0:00 96 D9 00 95 DO 49 C8 
9058:B1 A6 08 EO 04 90 OC A5 9120:01 8D DE 91 A5 O2 8D 47 91E8:C4 07 DO FO AS 09 DO 03 
9060:3E C9 23 90 14 20 3A FF 9128:92 AS 03 8D 4E 92 20 D6 91F0:20 58 FC A9 A4 20 ED FD 
9068:4C 0A 90 AS 3F C9 95 FO 9130:91 4C OA 90 ECO 08 BO 76 91F8:A0 DE 9j AE DD 91 20 41 
90?0:F4 C9 CO FO FO 95 01 A5 9138:A5 07 FO 6F AS 05 8D EA 9200:B9 AS 0OB CINDC RO IE" A9 
9078:3E 95 00 4C OA 90 EO 05 9140:B7 AS O4 8D EC B7 AO 00 9208:33 A2 94 20 20 93 A9 OD 
9030:80 12 C6 05 D9 04 A9 02 9148:8C EB B7 8C FO B?7 8C DD 9210:85 24 AD EC B7 20 DA FD 
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9278:A9 17, 85 24 38/AS\ BEN ED 
9220: DEN 9IN20VES#ED, ?088E RD 
J2PETE6 09 A5 OSNCILTENFOP25 
92 S0SEEEDD 91 ,DONCE EELDEN OT 
9238"ABÉDE 91 CI 95" FOFFR6ENCI 
9240:C0 FO F2 AD DD 91 C9 00 
9248:D0 90 AD DE 91 C9 00 DO 
9250:89 A5 09 FO 27 A9 45 A2 
9256299 20 20M53 20 0CVEDVC9 
9260:CD DO 03 4C ÀE 91 C9 9B 
9268:D0 05 68 68 4C 0A 90 A5 
9270:09 C9 16 DO 07 A9 00 85 
9278:09 4C 30 92 60 A9 00 85 
9280:24 20 5B FB A2 OA 20 4A 
9288:F9 A9 58 A2 93 20 20 93 
9290:A9 OD 85 24 20 28 93 A9 
9298:05 20 5B FB A2 00 AO 23 
92A0:84 24 A9 A4 20 ED FD EO 
92A8:04 BC 05 BS O1 20 DA FD 
92B0:BS 00 20 DA FD 20 8E FD 
92B8:E8 £E8 EO 04 90 E2 AO 25 
92C0:E0 08 90 DC. A5) 05, 09 BO 
92C8:8D CF 06 Ag 07 FO 4A CO 
92D0:0C 90 02 AO OB 84 CA A9 
92D8:07 2085 BR" PBLASL29N3SBRES 
92E0:0A ES CA E5 0A 85 24 A2 
92E8:00 BD 00 96 48 30 O8 A9 
92F0:BD\ 20 BD FD 4C101 93 ED 


92F8:00 9S 4A 4A 4A 4A 20 E3 
9300:FD 68 6A BO 08 A9 BD 20 
JOB EDF D IC 13 93 ED 00095 
DS TO 20NE 3 MRD EGN2I,E GE 8ED0 
9318:D0 A9 23 85 24 4C 9A 94 
9520:8D029 93 8E 27. 93 A2M00 
JSRES BONE N FE TOLONCIPACED0) 
9330:05 20N9C FC A9" 8D 20"ED 
9338:FD E8 4C 28 93 09 80 20 
9340SED ED E8  4C 9C FC" 00100 
95398: FFe RE NO0 0I 22100" C1eDA 
9350:DO0 C6 C41C5 D2"D3 (CD DL 
9B5S8 AD AOMDINESN CI GCENCS D2 
9360:C3 C8 C5 A0 C1 A7/LCEN CS 
9368:D4 C5 D4 D3 AO AD AC AC 
9370:20 A8 DO Ci D4 D2 C9 C3 
9378:CB! A0 ES CF DE Ch D2 C5 
9380:A9 AC AC AC C1 AC AD A0 
938: CD\ES SGD CFNCI D2, C5 20 
9390:C4 GS C2 DS D4 AC AC'DA 
95982A0 AD AO CD CS CD CFECI 
93A0:D2 CS AO C6 C9 CE AC AC 
93A8:D0 AO AD AO DO C9 D3 D4 
93B0:CS5 AO C4 CS C2 DS 04 AC 
93B8:AC C6 AO AD AO DO C9 D3 
9JSCODIN CS AU CENCINCE AC AG 
93C8:C4 AO AD AO C4 D2 C9 D6 


93D0:CS5 AC AC C5 AO AD A0 C5 
93D8:D8 DO AE AC AC D2 AO AD 
OSEO AO DINCS CI CE AUMGDECS 
95BGCONCENC IL DPNCS AN AC DS 
93F0:A0 AD AO D2 C5 C3 C8 A0 
J3REIC INC "DS DIN DS CS D I" D4 
9400:CS5 AC AC CD AO AD AO CD 
9408*°CENCE C9,D4 C5 DS DP2 AC 
94i0:AC D1 AO AD A0 D1 DS C9 
9418:D4 D4 C5 D2 AC AO AC A0 
9420:A0 A0 AO A0 AO AO AO D6 
9428:CF D4 D2 C5 A0 C3 C8 CF 
9430:C9 D8 3A AO AO AO A0 A0 
9438:D0 AE A4 AO AO AO A0 A0 
9440:A0 AO D3 AE 24 AC CD BO 
926:CDUCENCE CI DIN CS D5 D? 
9450:A0 AO AO D3 DO BD C3 CF 
9458:CE D4 C9 CE DS C5 D2 AO 
9460:A0 AO CS D3 C3 BD CD C5 
JMEBLCE DS A0 20 87 C1 CE CF 
99PC:CDNCI EC C9, C5 A0 CC €5 
9478:C3 D4, DS D2 C5 A0 CI C9 
9480:D3 D1 DS C5 D4 D4 C5 AC 
9488:AC D4 CI DO C5 DA AO DS 
SÉIQOCENCS AO D4 CF DS C3 C8 
9E9SECS5 20 A9" 17 4C 5SB\FB 00 
94A0:00 





Apple & Minitel 
les caractères semi-graphiques 


L'écriture d'un logiciel destiné au 
Minitel passe presque invariable- 
ment par l'exploitation des 
caractères semi-graphiques ; nous 
vous proposons donc une table 
des codes de ces derniers. 


Chaque caractère semi-graphique 
vidéotex est contenu dans une 
matrice de 8 points (horizontale- 
ment) par 10 points (verticale- 
ment) et est divisé en 6 ‘pavés’ 
élémentaires. L'état — ‘on’ ou 
‘off” — des pavés est déterminé 
par la valeur des bits 0, 1, 2, 3, 4 
et 6 du code de caractère, Ainsi, 
comme le montre le schéma 
ci-joint, le bit 0 détermine l'état 
du bloc situé en haut et à gauche, 
le bit 1 détermine l'état du bloc 
situé en haut et à droite, etc. 


Pour passer en mode semi- 
graphique, le Minitel attend le 
code $0E (14). Le mode ‘dis- 
joint”, où les blocs élémentaires 
sont séparés par une ligne, est 
obtenu en envoyant les codes 


$IB et $5SA (27 et 90). $1B et 
$59 (27 et 89) retourne au mode 
‘joint’. Enfin, le code $OF (15) 
permet de repasser en mode 
normal ‘texte’. 


Île 


$20 fai $2z $23 $24 $25 $27 


[E 


s2a 














































































$S38& $39 S$3A $3B  $5C “ssn $3E 


mi Cm a ni a Ba 29 


$6s ssl 562 563 564 Le $66  $67 


CENBELEL 


568 $69 567 36€ s6F 


== 2=nLeE 


$rg S$71 $r2 $e3 474 525 


PEEMrL 


sÂ l $7R  $78 $7C 970 $7€ 


Jeu de caractères Télétel Joints 





5 










































ne, du caractère 


GS 43 2 1 0 


nine EU J 








—# 
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Conversions 





HGR & DHGR 


Qu'il est agréable de pouvoir 
disposer du graphisme double 
haute résolution (DHGR) dispo- 
nible sur les Apple //c et //e 
équipés d'au moins 128K ! 


Encore faut-il pouvoir l'utiliser à 
sa guise : en effet, seuls quelques 
logiciels (par exemple Dazzle 
Draw ou Extasie) permettent de 
manipuler le DHGR. 


Malheureusement, ce sont des 

programmes fermés et on peut 

être amené face à deux types de 
problèmes : 

* vouloir imprimer l'image créée 
sur une configuration impri- 
mante/interface qui n'a pas été 
prévue ; 

« désirer utiliser la souplesse 
d'un langage de program- 
mation (par exemple 
l'Applesoft) pour générer des 
séquences répétitives ; 

+ utiliser les fonctions puissantes 
des éditeurs HGR traditionnels 
(tels que MousePaint ou 
Blazing Paddles) sur une 
image DHGR. 


Les images DHGR correspondent 
à une définition de 560 fois 192 
points, alors qu'une image HGR 
standard en contient 280 fois 
192. Elles sont stockées sur 
disque, par les éditeurs 
graphiques, comme des fichiers 
débutant à l'adresse $2000 


jusqu'en $5FFF. 

Néanmoins, elles ne peuvent être 
manipulées sans modification par 
votre routine préférée d'impres- 
sion ou votre programme 
Applesoft car, après un BLOAD, 
la page HGR ne contient que les 
octets pairs de l'image pendant 
que la page HGR2 contient tous 
les octets impairs. 


Pour vous en assurer essayez la 
séquence suivante : 


HGR 

BLOAD IMAGE, AS2000 

CALL -151 

co55 pour afficher la page 
HGR2 

c054 pour retourner en page 
HGR 

300G pour revenir au Basic 


Le résultat affiché n'a généra- 
lement qu'une ressemblance fort 
vague avec l'image que vous avez 
si patiemment construite avec, par 
exemple, Dazzle Draw... 


Il serait donc de bon ton de 
pouvoir disposer d'une routine 
qui convertisse le résultat pour 
afficher la partie gauche en page 
HGR et la partie droite en page 
HGR2. Ces deux parties 
pourraient alors être imprimées, 
manipulées à votre guise par un 
programme Applesoft, ou 
sauvegarder sur disque pour être 
modifiées par un éditeur HGR 





Alexandre Avrane 


traditionnel. Par la suite, il 
suffirait de recoller les deux 
parties pour obtenir à nouveau 
une image DHGR. 


Coup de chance, le module 
DHGR effectue cette conversion ! 
C'est une routine (sans grande 
prétention) qui, chargée en 
$8000, contient deux points 
d'entrée : 

CALL 32768 ($8000) 
convertit le fichier chargé en deux 
images gauche/droite placées en 
HGR et HGR2, c'est à dire 
BSAVE IMAGE1,A$2000,L$2000 
BSAVE IMAGE2,A$4000,L$2000 


CALL 32771 ($8003) 
effectue la conversion inverse 
afin de sauver le résultat sur 
disque, par 

BSAVE IMAGE,AS2000,L$4000 
et sa récupération ultérieure par 
votre éditeur graphique. 


DHGR est indépendant du 
système d'exploitation et pourra 
sans difficulté être utilisé sous 
DOS 33, ProDOS ou Pascal. 

Le fichier T.DHGR contient le 
source en Big Mac au format tex- 
te ; le programme DHGR DEMO 
illustre son utilisation en 


Applesoft. 


240 PRINT D$"BLOAD"F$".PIC,A$2000" 


REM charge la routine 
PRINT D$"BLOAD"F$: REM A$8000 
PRINT "Image chargé 


REM convertit en 2 images exploitabl 


PRINT "Image convertie au format HGR 


REM on va tracer un "X" sur l'image 
HCOLOR= 3: REM blanc 
REM surtout ne pas oublier d'initi 


Programme 
é LA 
DHGR.DEMO 
250 
100 REM DHGR.DEMO /le 260 
110 : //e+ 265 VTAB 20: PRINT : 
120 : e": GOSUB 1000 
130 REM Demo d'utilisation de //e 270 
140 REM DHGR es 
150 : Igs 280 CALL 32768 
160 : 290 
200 D$ = CHR$S (4):F$ = "DHGR" ": GOSUB 1000 
210 REM passe en graphique 300 
220 HGR2 : HGR : PRINT CHR$S (27) CHRS ( 310 
17).: REM Esc-Ctr1-0 315 
230 REM si on voulait charger une image 316 
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REM l'adresse 230 sinon gros bobo... 
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320 POKE 230,32: REM travaille sur HGRI 34 CONV*1  LDA VI 


330 HPLOT 0,0 TO 279,95: HPLOT 279,96 TO # Eee a 
36 BCS CONV'X oui! 
0,191 37 LDX #0 
340 POKE 230,64: REM travaille sur HGR2 38 LDY #0 
350 HPLOT 0,96 TO 279,191: HPLOT 0,95 TO 33 JSR HPOSN calcule GBASL 
40 £LP 
ru 41 PHP 
360 PRINT “Image terminée": GOSUB 1000 42 BCS CONV*IA SU Con ere? 
400 REM reconvertit au format DHGR 43 JSR CONV”"2A 
410 CALL 32771 “EI DEL CORP 
" ; 45 BMI CONV'IB =jmp 
412 PRINT "Image reconvertie au format D 46 CONV"I1A UJSR CONV*2B 
HAGR": GOSUB 1000 47 JSR CONV"2A 
415 END 48 ZGNV*IB INC VI ligne suivante 
43 BNE CONV*1 2jmP 


; : ae 
420 REM et si on voulait sauver l'image FO Cenvex BCE 








430 PRINT D$S"BSAVE"FS",PIC, AS$2000, LS$4000 si RTS bye bye 
" 52 
440 REM mette L$4000 et non L$S3FF8 pour _ RATES E nr 
450 REM certains utilitaires DAGR 55 CONV*2A LD #40-1 40 colonnes par page HGR 
460 END 56 LDX #80-1 80 colonnes par page DHGR 
1000 REM Routine d'affichage Fe CONV*2 ei A HA CHE 
5 älimentre 
1010 PRINT "<1>/<2> affiche HGR1/RGR2": 59 DEX é 
PRINT "<Return> continue ‘"; €0 JSR SWAP HGRI 
1020 GET KS$: IF K$ = "1" THEN K = PEEK 61 JSR CONV*2C 
LS 
(49236): REM $CO54 : 
1030 IF K$S = "2" THEN K = PEEK (49237): 64 BPL CONV'2 
REM $CO55 65 RTS 
1040 IF ASC (K$) = 13 THEN PRINT : RET a. ; 
URN 68 
1050 GOTO 1020 69 CONV”"2B LDX #80-1 
70 JSR  SWAP HGR2 
‘ , PL JSR CONV*3 vide NEWLINE vers HGR2 
Source ‘T.DHGR 72 JSR  SWAP HGRI 
Assembleur Big Mac, format TEXT DOS 3. 3 73 Je CONV*3 vide NEWLINE vers HGRI 
74 RTS 
J'ééééiitéiitaiititétététét 75 
2 * CONVERSION DHGR/2 HGR * ProDOS DE 
3 thé tttttttttteseset 77 
À 78 CONY*2C LDA (GBASL),Y 
5 * Cette routine convertit des images DHGR 73 PHA 
6 * stockées en un fichier binaire chargé en 80 LDA NENLINE,X 
7 # S2000 jusqu'en SSFFF, en deux images 81 STA (CBASL),Y 
8 * graphiques (parties gauche € droite] Pi PLA 
< Se TT Rte 83 STA NEWLINE,X échange NENLINE et page HGR 
11 * Deux points d'entrée: se RTE 
12 * CONVERTI ($8000) pour conversion DHGR -> HGR+HGR2 se 
13 * CONVERT2 ($8003) pour conversion HGR+HGR2 -> DHGR 37 
14 
re 88 CONV“3 LDY #40-1 
15 * Modifié: 21/12/86 89 CONV*4 JSR CONV“2C 
16 * Créé: 19/12/86 F Me 
17 * ({C) 1986 Alexandre Âvrane 91 DEY 
18 
BPL vr4 
19 GBASL - 526 a re en 
20 HPAG = $SE6 + 
21 HPOSN - sF411 SRI 
22 
23 CONVERTI = * Entrée DHGR -> 2 HCR _ re on CE. 
2 cc 98 EOR #S60 échange vecteurs HGR1 £ HGR2 
el BEEN CONYD “jap 39 STA GBASL+I 
26 CONVERT2 = * Entrée 2 HGR -> DHGR PA Fe 
27 SEC Soi 
28 CONV*0 PHP sauve carry OEM ES 
29 LDA #>52000 PE 
30 STA HPAG page graphique “ Va 5 
81 LDA #0 = [ne es 
:05 NENLINE DS 80 
32 STA VI lére ligne ee 
33 
Récapitulation 8000:18 90 01 38 08 A9 20 85  8040:20 71 80 20 SA 80 CA 88 8088:A$ 98 85 43 AO 00 20 2C 
À 8008:E6 A9 00 8D 78 80 AD 78 8048:10 EF 60 A2 4! 20 71 80 8090:FE AO D6 84 3C AO 83 84 
DHGR' 8010:80 C9 CO BO 1E A2 00 A0  8050:20 67 80 20 71 80 20 67 8098:3D AO D5 84 3E A0 88 84 
eee 8018:00 20 11 F4 28 08 50 08 8058:80 60 81 26 48 BD 79 80 80A0:3F AO D8 84 43 AO 00 84 
Après avoir saisi ce code sous 8020:20 35 80 20 4B 80 30 OS  8060:91 26 68 9D 79 80 60 AO  8OA8:42 20 2C FE AS IC 8D 14 
moniteur, vous le sauvegarderez 8028:20 48 80 20 35 80 EE 78 8068:27 20 SA 80 CA 88 10 F9 80B0:81 A9 81 8D 1B 81 20 11 
par BSAVE DHGR, 8030:80 DO DB 28 60 AO 27 A2  8070:60 A5 27 49 60 85 27 60 8088:31 C9 DD FO 06 9D 00 00 
A$8000L$CS 8038:4r 20 71 80 20 SA 80 CA 8078:A9 82 85 3D A9 D6 85 3E  80C0:E8 DO F3 A2 00 20 11 81 


8080:A3 80C8:8D 
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De l’octet au nibble : 
Kyram 


Ce nouvel utilitaire n'est pas d'un 
usage évident en première 
approche ; garder le manuel du 
DOS 3.3 à portée de la main est 
une sage précaution. C'est dans 
un esprit d'utilisation pratique 
que le mode d'emploi qui suit est 
basé sur l'exemple. 


Il vous permet de lire une 
disquette dont le formatage est 
fantaisiste, de savoir quel 
formatage a été utilisé, de 
protéger vos disquettes... 


Pour lancer KY RAM, faire : 
BRUN KYRAM 


Un message du type : 
L'AMPERSAND EST 
OPERATIONNEL 


doit s'afficher. 


Présentation 
générale 


Le DOS 3.3 ne permet pas 
d'utiliser à 100 % les disquettes, 
l'utilisateur n'ayant accès au 
support magnétique que dans les 
limites de ee que le DOS 5.3 
autorise. Le catalogue DOIT être 
en piste $1il, par exemple. 
KYRAM se propose d'ajouter 
quelques commandes au Basic 
afin d'augmenter l'efficacité du 
SED (Système d'Exploitation de 
Disquettes), et de permettre à 
l'utilisateur d'ausculter en détail 
le contenu réel de la disquette. 


Pour ajouter ces commandes, le 
programme exploite l'&. Quand 
l'interpréteur rencontre Ce Carac- 
tère, il fait un saut à l'adresse 
contenue en $03F5, adresse de 
KYRAM, programme qui ‘rendra 
la main’ au Basic en fin de 
travail. 

Chaque commande est un mot de 
cinq lettres précédé de &, et 
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éventuellement suivi d'une chaîne 
ou d'une variable alphanumérique 
(AS ou "TOTO" par exemple). 
Toutefois, si vous optez pour la 
solution variable alphanumérique, 
il est bon que l'ordre soit précédé 
d'une affectation de type A$=AS$, 
ceci afin de préparer les routines 
Applesoft utilisées par le pro- 
gramme. 


Note : il est utile d'essayer les 
commandes qui suivent aufur et 
à mesure de leur description. 


Commandes 
générales 


Ces commandes donnent des 
renseignements concernant le 
fonctionnement de KYRAM, les 
paramètres internes du DOS... Il 
s'agit de &QUID!, &DIAGN, 
&COMMS et &LRWTS. 


&QUID! 


Si vous tapez cette commande, 
puis CALL-151 et 320.400, 
divers nombres hexadécimaux 
apparaîtront, nombres qui repré- 
sentent les prologues et épilogues 
des champs adresse et données. 


&DIAGN (DIAGNostique) 
Nonnalement,le message : 


* KYRAM * PAS D'ERREUR A 
LA DERNIERE COMMANDE 


doit apparaître, vous indiquant 
que la dernière opération sur 
disquette a été menée à bien. 


&COMMS (COMMandeS) 


On demande par cet ordre la liste 
des commandes disponibles. 
Certaines commandes sont 
suivies de ‘_’ qui rappelle que 
des paramètres doivent suivre. Si 
vous les ommettiez, vous obtien- 
driez : 


Gildas Ménier 


ERREUR D'OPERANDE 


&LRWTS (Liste RWTS) 


L'écran est effacé et apparaissent 
divers mots et nombres hexadé- 
cimaux dont nous verrons la 
signification plus loin. 


Accès au disque 


La disquette est divisée en 35 
pistes (en principe...), chacune 
étant divisée en 16 secteurs. 


&SECRE (SECtor REad) 


Cet ordre permet de lire un 
secteur. Pour lire le secteur $00 
de la piste $01, il faut taper : 
&SECRE "0001" 

Le secteur est alors lu et écrit en 
mémoire, de l'adresse $2000 à 
l'adresse $20FF. Pour en être 
sûr, &DIAGN doit indiquer que 
tout s'est bien passé. 

&SECRE “OF11l" 


commande la lecture du premier 
secteur du catalogue. 


&BUFAS 


Suite logique de la commande 
précédente, affiche sur l'écran le 
secteur qui vient d'être lu (un 
décalage s'affiche au début de 
chaque ligne). 


&SECWR (SECtor WRite) 


Pour écrire un secteur com- 
mençant en $2000, il faut taper : 
&SECWR "0081" 

s'il devait être écrit sur le secteur 
O0 de la piste 1 (Changez de 
disquette avant de tenter 
l'opération). 


&INITD (INIT Disquette) 


Cette commande formatera la 
disquette SANS y mettre de 


= 


NES 


catalogue ni de DOS. 


De l'octet au 
nibble 


Avant écriture sur le disque, les 
octets composant le secteur sont 
d'abord codés en nibbles. Ils sont 
à la disquette ce que les octets 
sont à la mémoire. Un lecteur ne 
peut lire et écrire que des nibbles 
et comme il y a moins de 256 
nibbles différents et valables, un 
secteur sur le disque occupe plus 
de 256 nibbles... De plus, 
comme les pistes sont circulaires 
(eh oui !), il faut bien que 
quelque chose indique au lecteur 
où commence le secteur qu'on 
veut lire. 


Pour séparer ses secteurs, le DOS 
3.3 utilise des blocs de nibbles (la 
plupart du temps des $FF) un peu 
spéciaux, des nibbles synchro- 
nisés. 

Pour en écrire un sur la disquette, 
le DOS utilise des routines dans 
lesquelles le temps d'exécution 
est primordiai, et il ne sera pas 
écrit exactement comme les autres 
nibbles. Aïnsi, les secteurs seront 
séparés. 

Il faut maintenant que le lecteur 
trouve le secteur XX sur cette 
piste : le DOS 3, litles premiers 
nibbles après les nibbles synchro- 
nisés et il recherche une série du 
type DS AA 96 (ces nibbles sont 
réservés, c'est-à-dire qu'on ne 
peut pas trouver D5 dans un 
secteur codé en nibbles). 


Cette série de trois nibbles 
constitue le prologue du champ 
adresse. Prologue parce qu'ils 
marquent le début d'une autre 
série qui indique, codés, le 
numéro de volume, le numéro de 
piste, le numéro de secteur et, 
enfin, un ‘checksum’ : tout ceci 
est le champ adresse. Le 
‘checksum’ est une somme de 
contrôle qui permet à l'ordinateur 
d'être sûr que les différents 
numéros ont été bien lus. Si ce 
n'est pas le cas : 1/0 ERROR, 
après quelques autres tentatives 
bien entendus. 


Huit nibbles après le prologue, 
on trouve DE AA EB, l'épilogue 


du champ adresse. Plus loin, on 
trouve DS AA AD qui est le 
prologue du champ données : ici 
débute le secteur codé, celui lu 
par &SECRE "...."” (ou presque). 
DE AA EB ferme la marche (c'est 
l'épilogue du champ de données). 
Après, on retrouve une série de 
nibbles synchronisés. 


&RDTRK (ReaD TRacK) 


Pour lire la piste 2 (par exemple) 
sans la décoder, taper : 


&RDTRK "O2" 

puis : 

CALL-151 

puis : 

2000.3F00 (‘freiner’ le listing 


par CTREL-S) et relire ce qui 
précède. 


Pour que le DOS puisse lire un 
secteur, il faut que les valeurs des 
prologues, épilogues et autres 
‘checksum’ correspondent parfai- 
tement avec les valeurs DS AA 
96... sinon il n'y a pas de lecture 
possible. Certains programmes 
indiquent d'où vient l'erreur si 
erreur il y a (A : adresse, D : 
données). D'autres programmes 
essaient de recopier les secteurs 
même sil manque un AA par 
exemple. 


&MAXPI 


La récupération de 4Ko supplé- 
mentaires sur la disquette (exem- 
ple classique) servira d'exemple. 
Taper : 

&MAWPI "24" 

puis : 

&LRWTS 

puis, avec une disquette vierge, 
INIT HELLO. 

Cette nouvelle disquette comporte 
$24 pistes au lieu de $23. Pour 
utiliser cette place disponible, il 
faut modifier la VTOC (table 
d'occupation du volume) ce qui 
indiquera au DOS les nouveaux 
secteurs accessibles (se reporter 
au manuel DOS pour l'organisa- 
tion de la VTOC). Il faut pour ce 


faire, bre la VTOC: 
&SECRE "“O0011" 
puis : 


CALL-151 

puis : 

20C0:FF FF 00 00 FF FF 
pour libérer la piste $24, puis : 


2030:12 01 00 O0 24 

pour dire au SED qu'il peut 
compter sur une piste de plus. 
Bien sûr, il convient de revenir au 
Basic par Ctrl-C puis d'écrire 
cette VTOC là où on l'a trouvée : 


&SECWR "0011" 
Idée 


Puisque c'est un octet dans la 
VTOC qui indique la position du 
catalogue, pourquoi ne pas 
transférer ce dernier sur cette 
piste $24 ? Comme la plupart des 
copieurs ne copient pas cette 
piste, un double de cette disquette 
ainsi customisée ne serait guère 
utilisable. 


La méthode 


* formater une disquette $24 
pistes ; 

* lire la VTOC; 

* modifier la position du 
catalogue (octet 1 et 2 de la 
VTOC, l'octet O étant inuti- 
lisé, voir annexe C du manuel 
DOS) ; 

« réécrire la VTOC,; 

+ lire le premier secteur du cata- 
logue en secteur 8F, piste $11 
et le réécrire en Secteur $OF, 
Piste $24 ; 

* idem pour tous les autres 
secteurs de la piste (de $0E à 
$01) : 

+ ne pas oublier de protéger 
dans la VTOC la piste $24 
qui, utilisée par le cataloÿue, 
n'est plus disponible ; 

+ libérer la piste $11, ancien 
catalogue. 


Malgré cette dernière modifica- 
tion, le DOS s'interdira d'écrire à 
la place de l'ancien catalogue. 
Pour l'y forcer, taper : 


&ASAUV 


avant de formater la disquette. 
L'ordre inverse, pour éviter 
d'écrire sur la piste $11 est : 


&PSAUV. 


(&LRWTS vous donne entre autre 
la valeur de SAUII : $A9 = le 
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FE PO ENTINSDS NS A'ANS 6) 


Octels de Prologue 
synchronisalion du 

champ 

adresse 


Le secteur sur la disquette 


Les octets de synchronisation sont en fait constitués de 10 bits (1111111100). La méthode de synchronisation 
et le détail du codage du secteur (méthode 6/2) sont décrits en détail dans Beneath Apple DOS et Beneath 


check 
volume piste secteur sum 
rt To 


FF FE D6 96 B6 96 DO 96 DE AA ES … 
el 
Épilogue 


Champ adresse 
du 

champ 

adresse 


Apple ProDOS, bibles de l'Applemaniaque.… 


DOS peut écrire piste $11 ;, $69 = 
il ne peut pas) 

Retaper cette liste d'ordres à 
chaque manipulation de disquette 
est fastidieux. Faites-en un 
programme Basic qu'il suffira de 
RUNer.….. 


Idée (bis) 


Vous avez ‘deleté’ un fichier et 
vous souhaitez le récupérer : 
opération simple s'il n'est pas 
dé jà écrasé par un autre fichier. 
Trouver d'abord le secteur du 
catalogue où se trouve votre 
programme : taper 


&SECRE "OF1l" &BUFAS 
&SECRE "OE1l" &BUFAS 
&SECRE “OD1l" &BUFAS 
jusqu'à apparition à l'écran du 
nom de votre programme, 
KYRAM par exemple. 

Choisir l'offset le plus près du 
nom : $00. Taper CALL - 151 


puis : 
2000.2020 
réponse : 


2000:00 00 FE O1 04 kk yy 
cr aa mm A0 AO A0..10 

(kk yy rr aa mm représentent les 
codes ASCII de KYRAM) 

À la fin des AO (espaces) vous 
tomberez par exemple sur 10. 

FF indique que le fichier est 
effacé, 10 et 01 indiquent la piste 
et le secteur de début du fichier. 
Remplacer FF par 10 et 10 par 
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AO puis réécrire le secteur là où 
on l'a trouvé. Sauvegarder le 
fichier retrouvé sur une autre 
disquette ou bien le protéger dans 
la VTOC. 


Pourquoi également ne pas 
modifier les messages d'erreur du 
DOS et, par exemple, remplacer 
l'entête du catalogue (Disk 
Voluime.…..) par CTRL-D suivi de 
ENIT HELLO. 


Prologue, 
Epilogue, 
Kyram, 

et protection 


En tapant &COMMS, on constate 
que certains ordres restent 
inconnus. 

&WAPRO permet de modifier le 
prologue champ adresse dans les 
routines d'écriture, par exemple 
&WAPRO "DS AA 96”: le DOS lira 
la piste jusqu'à découvrir ce 
prologue qui lui indique qu'un 
champ adresse suit. 

&RAPRO (comme Read Adress 
PROlogue) fait de même dans les 
routines de lecture. 

Quand le DOS lit un secteur, il 
cherche la valeur de RAPRO et 
quand il écrit, celle de WAPRO. 
Idem pour &RDPRO et ewDPRe qui 
se rapportent au Champ données. 
Idem pour &RAEPI, &RDEPI, 
&WAEPI €t &DEPI qui Concement 








DS AA AD … DE AA EBFFFF FF FF 
—— —— 1 
Prologue Épilogue 
du du 
champ champ 
données données 


Champ données {secteur codé en 342 
nibbles pour 256 octets + checksum) 


l'épilogue. 

Note : il ne faut préciser que deux 
nibbles pour &RAEPI et RDEPI, 
le DOS ne tenant pas compte du 
troisième. 

Par exemple : &RAEPI "DEAA" 
(RAEPI comme Read Adress 
EPIlogue). 

&SYNCR "FF", par exemple, 
permet de changer la valeur du 
nibble de synchronisation ce qui 
perturbera sensiblement la plupart 
des copieurs…. 


Un exemple 


Créer une disquette pour étudier 
ces commandes, faire : 


&WAPRO"D5BBCC" puis 
INIT HELLO. 


Maintenant, une tentative de 
CATALOG conduit à un I/0O 
ERROR car le DOS cherchait 
comme prologue d'adresse DS 
AA %6etilne pouvait trouver que 
DS'BB CC. 

Comment lire maintenant ? En 
faisant &RAPRO “D5BBCC" pour 
qu'en lecture le DOS cherche le 
bon prologue. 

Vous pouvez maintenant vous 
servir. de œette disquette 
nortnalement, mais essayez de la 
copier... 


Un problème subsiste 

impossible de booter sur ce 
disque new look. En effet, la 
ROM C6 de l'Apple, solicitée 





lors du Boot cherche obstinément 
DS AA 96. Avant de lire cette 
disquette, il faut donc charger 
Kyram et modifier les 
paramètres. 


On peut de la même manière 
changer prologue et épilogue. 
Une autre idée serait de protéger 
un programme parmi d'autres : 
sur une disquette normale, 
changer le prologue données de 
facon à avoir D5 XX YY 
(écriture) puis sauver votre 
programme par BSAVE Ou SAVE. 
Faire alors NEW, &WDPRO“D5 AA 
DD", &NOPRO, SAVE RIEN, 
DELETE RIEN, &TSTPR. 

&«NOPRO demande au DOS 
d'ignorer XX et YŸ, SAVE et 
DELETE RIEN servent à réécrire le 





normal. 

Un essai de LOAD ou BLOAD du 
programme conduit à un 1/0 
ERROR. Pour le relire, un 
&NOPRO est de rigueur. 


Face à une disquette 
inconnue 


La disquette refuse d'être lue : 
Kyram devrait vous tirer 
d'affaire. Lire une piste avec 
&ROTRK, regarder les valeurs de 
prologue et  d'épilogue. 
Neutraliser le contrôle de 
checksum par sNocxk. Entrer les 
valeurs de prologue et d'épilogue 
trouvées à l'aide de &RDTRK. 
Essayer un catalogue, ça marche, 
tant mieux. Sinon, il faut trouver 


Basic utilisant &SECRE et &BUFAS 
rendra service pour trouver un 
secteur qui, de près ou de loin, 
ressemble à une VTOC... 


En conclusion 


Benjamin Franklin disait qu'il 
fallait pouvoir scier avec une lime 
et limer avec une scie. Kyram n'a 
peut-être pas d'applications en 
menuiserie, mais il semble que 
ses possibilités soient très 
étendues, l'imagination en est 
toutefois -uné-/limité. LES 
remarques et suggestions 
pourront être transmises à 
l'auteur par l'intermédiaire de la 


Tevue. 


catalogue avec le prologue le catalogue et une boucle en 








55 
Source F. KYRAM 56 MOVE EQU S$Cc363 4COPIE DE MEMOÏRE PRINC-AUX 
Û 2 XFER $C380 4 TRANSFERT B'EXECUTION PRINC-AUX 
Assembleur BigMac 4 he 
59 
1° 60 
2 LA LELELELEEL ELLE ELLE ELELEL EE] 61 rl er ie D Se ee eu lee 
3» . * 62 
4" , KYRAM V2.1 # 63 ORG S3FFA # CRIGINE 
CR . , 64 
6 * LALALLRLLELLLLLLLLZL11111111) CS — 
TE 66 
6 67 
9 * G.MENIER fc) 86 STG 68 JSR DEBUT “PRESENTE+# VECTORISE 4+RET@OUR AUX 
AOpE 69 JMP  $D43C RETOUR AU &ASIC (CMDLOOP) 
11 * >PROGRAMMS DE MODIFICATION DES PARAMETRES INTERNES OU 00S 70 
12 * QUI PERMET, PAR EXEMPLE: 71 
19% mmmmmmmmmmmn— 72 KYRAMP  LDA $400 : SAUVECARDE DES 2 1ER CARACTÉRES 
14 #* L'UTILISATION DES MEM@IRES AUXILIAIRE (CARTE 80 COL) 73 STA SAUVI :DE L'ECRAN 
15 * L'UTILISATION DES ROUTINES RNTS. 74 LDA S$401 ;POUR AFFICHER ‘KV 
16 * ZA MODIFICATION DES PARAMETRES INTERNES OU DOS 25 STA  SAUV2 
17 #* LA CREATION DE DISKETTES FORMATTEES À VOLONTE' 76 LDA #:K" ;ON AFFICHE 'Ky' 
18 #* LA RELECTURE DE PROGRAMME SUR CES DISKEITES 72 STA 5400 
DIRE NO ES TRE ee trial les on ETC 78 LDA #'x° 
20% 79 STA $401 
2° 20 
RE ES A SU TN Tee 81 JSR CETLINE “C@PIE DU BJFFER 5200 EN BUFFIN 
23 * PLAN PROGRAMME: - COPIE DU BUFFER BASIC (EN 5200) DANS 82 JSR LOOPPRIN  :RECHERCHE DU MOT 
24 * UN BUFFER EN $300 83 
25% - RECHERCHE BU NOT BANS UNE TABLE:LES 84 LDA SAUVI1 ON REMET LES 2 CARACTERES ECRAN 
26» MOTS FONT 5 LETTRES.UNE ERREUR CONDUIT 83 STA 65400 
STI A ""XYRAM* ERREUR DE SYNTAXE. " 86 LDA SAUVZ : LA OU ON LES A TROUVE... 
28 * — SINON BRANCHEMENT DIRECTEMENT AU MOT 87 STA 5401 
29 * No.COMPT. 88 
30 * - ON UTILISE POUR LE PASSAGE DE 89 
“is PARAMETRE, LES SP "DECUDE.CONVERT. . * 90 TEST LOA SCOMMANDE :ON INITIALISE LE DEBUT CE LA 
PONT EEEe DER néon SA 91 STA SiA ; LISTE DES COMMANDES 
Eee 92 LDA 4/COMMANDE :POUR SAUTER EN INDIRECT 
& fs - TABLE DES SYMBOLES - 
ss 93 STA $iB ; 
36 PASSE EQU $06 :SERT COMÆ OCTRT DE PASSAGS 34 
37 SECONDE EQU $07 : CONTIENT LA POSITION DE “ No.2 35 LDA  COMPT LAS DERCEEUTE 
38 BUFFIN EQU $08 “POSITION DU BUFFER DE KYRAM 96 CMP #40 “MAXI 
39 VALTYP EQU $11 :CONTIENT LE TYPE DE LA VARIABLE ga BCS NON GRASAUACIO ES NAEEEOS 
<0 voc EQU $18 ;SERT POUR LA RECHERCHE DU MOT 98 
41 COMPT EQU $CE {CONTIENT LE No.DU MOT TROUVE 33 ASL A°2 
42 SAUVI EQU $ie ; DIVERS 100 CEC ‘ 
43 SAUVZ  EQU SF ; (VOUS AVEZ DIS VERT ?) 101 ADC  COMPT *A°3 
44 A1L EQU $3c :UTILISES PAR CERTAIN SP MONITEURS 102 c£C : 
4$ A1H EQU $30 103 ADC SIA “ON PREPARE LE SAUT / No. 
46 A2L EQU 535 204 BNE PASADJ :SI > 255 ON AJUSTE LE TIR 
47 A2R EQU $3F 105 INC $18 :ADRESSE HAUTE 
48 A4L EOU 542 106 PASADJ STA SIA 1 
43 A6H EQU $43 107 
50 108 
51 STROUT EQU $DB3A SORTIE ECRAN BU TXT POINTE /Y6 À 109 UMP ($1A) GONE QUT ELA SPRSCCENT LE 
52 CHRCET KQU SA] 110 
53 PRBYTE EQU $FDOA ;SORTIE ECRAN DE À EN HEXA 111 NON JMP  ERROR {SN ERROR 
54 MYSEEKX EQU S$BES5A “ROUTINE BOS:POSITION DE LA TETE 112 
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Les commandes de Kyram 


— passage de paramètres 


L lecture 
E écriture 


les exemples sont les valeurs normales des paramètres 


&COMMS 
&LRWTS 
&CHKSU 
&NOCHK 
&TSTPR 
&NOPRO 
&WAPRO 
&WDPRO 
&WAEPI 
&WDEPI 
&RAPRO 
&RDPRO 
&RAEPI 
&RDEPI 
&SYNCR 
&MAXPI 
&MAXSE 
&VTSET 
& ASAUV 
&PSAUV 
&QUID! 
&RDTRK 
&RESET 
&NRESE 
&SECRE 
&SECWR 
&INITD 
&BUFAS 
&DIAGN 
&KYRAM 
&AMOVE 


&PMOVE 


&'AEXEC 
&PEXEC 
GRETPR 
&RET AU 
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affiche la liste des commandes 

affiche les paramètres modifiables du DOS 

provoque le contrôle du checksum en lecture (CHKSUM = 01) 
rend inopérant ce test (CHKSUM = 00) 

provoque le test des 2 derniers nibbles du prologue DATA lecture 
ne teste que le premier nibble du prologue DATA lecture 
modifie le prologue adresse écriture : &WAPRO “"D5AA96" 
modifie prologue DAT À écriture : &WDPRO “DSAAAD" 
modifie épilogue adresse écriture : &WAEPI "DEAAEB" 
modifie épilogue DATA écriture : &WDEPI "DEAAEB" 
modifie le prologue adresse lecture : &RAPRO “"D5AA96" 
modifie le prologue DAT À lecture : &RDPRO “"DSAAAD" 
modifie le prologue adresse lecture : &RAEPI "DEAA" 
modifie le prologue DATA lecture : &RDEPI "DEAA" 
modifie le nibble synchro formatage : &SYNCR "FF" 

nb maxi de pistes formatées : &SMAXPI "23" 

nb maxi de secteurs formatées : &MAXSE "OF" 

position de VTOC : &VTSET "1100" (“ppss") 

permet l'écriture sur la piste $11 SAUII vaut A9 

l'empêche SAUII vaut 69 

en $320 : prologues, épilogues, sync, VTOC 

lit la piste de $2000 à $3F00 : &RDTRK "01" 

Ctrl-Reset = Boot 

Ctrl-Reset # Boot 

lit un secteur &SECRE "0001" ("sspp") résultat en $2000 
écrit un secteur &SECWR "0001" (“sspp") écriture de 52000 
formate le disque sans DOS ni VTOC ni catalogue 

affiche $FF caractères en format TEXT à partir de $2000 (avec offset) 
dernière erreur sur Kyram. Code d'erreur en 5300 

est branché 

transfert de xxxx à yyyy vers zzzz en mémoire auxiliaire : 
GAMOVE “xxxxyyyyzz22" 

transfert de xxxx à yyyy vers zzzz en mémoire principale : 
GPMOVE “xxxxyyyyzzzz" 

transfert d'exécution vers mémoire auxiliaire 

transfert d'exécution vers mémoire principale 


laisse en $320 adresse de retour vers mémoire principale 
laisse en $320 adresse de retour vers mémoire auxiliaire 
123 JMP  MOTH * NDPRO: DA PROLO6 ( ! } 
124 JMP MOTI “WAEPI: AD EPIELOG ( " } 
129 JMP MOTY ‘NDEP1I; ? DA EPILOG ( ‘ } 
* COMNS: LISTE DES COMMANDES 126 JMP  MOTK  RAPRO: AG PROLOG (LECTU) 
“ LRNTS: LISTE DES PARAMTRES 127 JMP MOTL ‘RDPRO: DA PROLOG ( " } 
“CHKSU:TESTE LE CHEKSUM ADRESSE 128 JMP MOTM «RAEPI: LU AD £PIL@G ( Ce 
: NOCAK:N'EN TIENT PAS COMETE 129 JMP MOTN ‘RDEPI: DA EPILOG ( ! } 
 TSTPR:TESTE LE PR@L®@G DATA 130 JMP MOTO ; SYNCR:MODIFIE NIBBLE SYNCHRO 
“NOPRO:NE TESTE QUE LE 1ER (D5} 131 JMP MOTP *MSNPI; AU FORMATAGE: NB PISTES 
:WAPRO:MODIFIE AD PROLOG (ECRIT) 132 JMP MOTO ‘NAXSE: NB SECTEURS 




































































































133 
134 
235 
136 
137 
238 
139 
140 
141 
142 
143 
144 
145 
146 
147 
145 
149 
150 
251 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
17 
172 
173 
174 
175 
176 
177 
178 
179 
150 
181 
182 
183 
184 
185 
186 
187 
198 
189 
i90 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
22] 
222 
223 
224 
225 
228 
227 


CON 
ERR 


CARU 


HEX 





91600100 
00 

00 

C240 


06001 
0001EFD8 


:VTSET:POSITION DE VIOC 

SAS AUV:PERMET ECRITURE TRK 11 

“PS AOV : L'EMPECHE 

‘QUID!:LAISSE EN $320 HEAD+VTOC 
“ROTRK:LIRE EN $2000 LA PISTE & 
“RESET:VECI@RISE VERS BOOT 
#“NRESE:PAS DE BOCT SI RESET 
<SECRE:LIRE UN SECTEUR {#"S.T.") 

4“ SECHR:ECRIRE d id 
“IN'ITO:INIT SANS DOS SANS CATAL®G 
BUFAS:APFICHE $2000 EN FORMAT TXT 
“DIAGN:APPI. ERR/SECRE&SECWR6INITD 
: KYRAM'VECTORISE L'AMPERSAND 

SP DU Ile TRANSFERT DE MSV -> AUX 
:$P DU Ile TRANSFERT DE MSV -> PRI 
‘SP DU Iïe TRANSFERT EXEC -> AUX 
SP DU IIe TRANSFERT EXEC -> PRIN 
*“LAISSE EN $320 BILLET DE RET PRIN 
“LAISSE EN $320 BILLST CE RET AUXI 


«-> No DE PISTE 

s-> No DE SECTEUR 

4-> TABLE CARACTERISTIQUES UNITSE 
“BUFFER O'ENVOIS 


“COMMANDE (00,01,02,04} 
“CONTIENT ERR SI INDIC P AI 


TABLE DES CARACTERISTIQUES 


a ———————————— 


MOTA 


NOTB 


$rC58 
ÉLS4 
s/KY 
STROUT 


#CMD 
#/CMD 
STROUT 


‘ow1 
# /CMDI 
STROUT 


#CMD2 
4/Ccmp2 
STROUT 


SFCS58 
#KY 
#/KY 
STROUT 


#ADREAD 


#/ ADREAD 
STROUT 


$B955 
PRBYTE 
SB95P 
PRBYTE 
$B96À 
PRBYTE 
FINC 
$B931 
PRBYTE 
$B99B 
PRETTE 
CHD 
$B8E7 
PRBYTE 
SB&F1 
PRBY1E 
$B8FC 
PRBYTE 


FINC 
$8935 
PRBYTE 
$893F 
PRBYIE 


FADWRITE 
#/ADWRITE 
STROUT' 


$BC7A 
PRBYTE 
$BC7E 


:HONE 
AFFICHE TITRE *KYRAM° 


“AFFICHE L'ECRAN COMMANDES 
: 


‘ 


‘ 


“RETOUR PRG D'APPEL 
< HOME 
4AFFICHE *KYRAM* 


AFFICHE "REAB SYS.,," 


:ON VA CHERCHER READ ADD PROLOG 
*ON L'AFFICAE 


‘ON AFFICHE "FIN DE CHAM;:° 
‘ET ON AFFICHE 

“LE READ ADD EPILOG 

JON AFFICHE “CHAMP DONNEES: " 
‘ET ON L'AFFICHE 


“MEME CHOSE POUR “FIN DE CHAMP:" 


“ON RSPAIT TOUT CA AVEC 
5 "WRITÉ SYSTEM: ,,," 


229 
239 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
249 
246 
247 
249 
249 
280 
251 
252 
253 
254 
255 
256 
257 
258 
255 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
273 
280 
281 
282 
283 
284 
285 
284 
297 
288 
289 
290 
281 
232 
293 
294 
295 
296 
297 
238 
289 
300 
301 
302 
303 
304 
305 
306 
307 
308 
303 
310 
311 
312 
273 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 


QUI 


OUAIS 





PRBYTE 
$BC84 
PRBYTE 
FINC 
SBCAE 
PREYTE 
SBCB3 
PRBYTE 
$BCB6E 
PRBYTE 


CHO 
$B853 
PRBYIE 
$8858 
PRBYTE 
$B85D 
PRBYTE 


FINC 
$B89E 
PRBY1IE 
$B8A3 
PRBYTE 
SB8A8 
PREYTE 


#CHKSUM 
f/CHKSUN 
STROUT 
$B92E 

#0] 

#51 

out 

#00 
PRBYTE 


FADRTST 
#/ADRTST 
STROUT 


$88F3 
#01 
#$F2 
OUAIS 
#00 
PRBYTE 


#S AUVE 
#/SAUVE 
STROUT 
$B8292 
PRBY1E 


#SYNC 
#/SENC 
STROUT 
$BC6D 
PRBYTE 


NBPISTES 
4/NBPISTES 


STROUT 
$SBEFE 
PRBYTE 
4NBSECT 
#/NaSECT 
STROÛT 
$S8F2A 
PRBYTE 


dvrToc 
4/VToC 
STROUT 
$ACO1 
PRBY1E 
4SECTEUR 
#/SECTEUR 
STROÛT 
$8D00D 
PRBYTE 
4TRKC 
#/TRKC 
STROUT 
SAA73 
PREYTE 
$AA72 
PRBYIE 
$LD 

#/L0 
STROUT 
$AA61 
PRBYTE 
$AA60 


+ *CHEKSUIM: * 


4SI L'OCT CHERCHE À 13 (8ME L+13) 
ON ECRIT “OUI" 

+ SINON "NON" 

AFFICHE À EN HEXAA 


*IDEM AVEC TEST DE L'EPILOC DATA 


+PRT À 


“ON AFFICHE OCTET SAUVEGARDE DE LA 


‘PISTE 11 
‘ 6$=>PROTÉGE A9=2>NON PROTEGE 


«ON AFFICHE L£ NIGBLE DE SYNCERO 


‘ON AFFICRE LE NB MAXI DE PISIES 


+ON ECRIT LE NB MAXI DE SECTEURS 
“EN CE QUI CONCERNE FORMAT. 


:VOILA LA POSITION DE VIDC 


<ON AFFICHE L'ADD DU + RECENT PRG 


#...ET SA LONGUEUR. 





MOTC 


NMOTD 


KOTE 


MOIF 


MOT 


MOTI 


MOTJ 


PRBYTE 
sCTRK 
#/CTRE 
STROUT 
TRK 
PRBYTE 
#DTRK 
#/DTRK 
STROÛT 
$3E7 
$06 
$S3E8 
#07 
#500 
($06),Y 
$1A 


{$506J,Y 

$18 
$04 
(SIAL,Y 


PRBYIE 
4D0TTED 
#/D81TED 

STROUT 


#$13 
$B92E 


#500 
$892E 


#SF2 
SB8F3 
0$E7 
SB8FE 


#50 
$B8F3 
SB8FE 


s$oc 
SECONDE 
SAOVEG 
DECODE 
CONVERT 
SBC7A 
CONVERT 
SBC7F 
CONVERT 
SBC84 
RESTORE 


#$0c 
SEC8NDE 
SAUVEG 
DECODE 


CONVERT 
$8853 
CONVERT 
$Bs58 
CONVE RT 
$B85D 
RESTORE 


soc 
SECONDE 
SAGVEG 
DECODE 
CONVERT 
SBCAE 
CONYERT 
SBc83 
CONVERT 
SBCB8 
RESTORE 


soc 
SECONDE 
SAUVEG 
DECOBE 
CONYERT 
SB8SE 
CONVERT 
SB8A3 
CONVERT 
SBS8A8 
RESTORE 


$oc 
SECONDE 
SAUVEG 
DECODE 
CONVERT 


# TRACK COURANT POUR KYRAM 


#...ET AUSI POUR LE DOS. 


‘ PAS MARRANT À TROUVER:3E7-3E8 
“CONTIENT UN& ADRESSE QUI 
:M6t L'ADRESSE DU DEBUT DE IOB ? 


; 


:TRK C'EST LE 4I6NS DE 10B 


:ON TRACE UNE LIGNE. 


“OBLIGES LE DOS A TESTER CHEKSUM 
PERMET LES ERREURS SUR CHKSUM 


{PAS D'ERR SUR LE PROLOG DATA 


;: LES ERR PASSENT À TRAVERS 


ON VEUT 3 OCTETS EN ENTREE 

#5 (IER")+6{3"2)+1=$50C 

{SAUVE $B8 SB9 EN VUE D'UN RET BAS 
:INITIALISE:"DEAA9S5"? OU AS? 

‘LE 1ER TROUVE EST PLACE DS À 

ON SIUCRE 

LE 2ND EST PLACE DANS A 

*£TC 


+CF MOTG 


:CF MOTG 


CF MOTG 


: RAPRO 


MOTL 


MOTO 


HOTU 


$B9535 
CONWYERT 
S895F 
CONVERT 
$SBS6A 
RESTORE 


#+$0c 
SECONBE 
SAUVEG 
DECODE 
CONVERT 
SB8E£7 
CON'YERT 
SB8ri 
CONVERT 
SB8FC 
RESTURE 


#50A 
SECONDE 
SAUVEG 
DecIDE 
CONVERT 
$B991 
CONVERT 
$B99B 
RESTORE 


#SDA 
SECONDE 
SAUVEG 
DECODE 
CONVERT 
$B935 
CONVERT 
$893F 
RESTORE 


4508 
SECONDE 
SAUVEG 
DECODE 
CONVERT 
$BC60 
$883E 
RESTORE 


508 
SECONDE 
SAUVEG 
DECODE 
CONVERT 
$BEFE 
RESTORE 


508 
SECONDE 
SAUVEG 
DECODE 
CONVERT 
S8E2A 
RESTORE 


$ca 
SECONDE 
SAUVEG 
DECODE 
CONVERT 
SACO1 
CONVERT 
$BOQD 
RESTORE 


#5A9 
$B292 


4569 
$8292 


$8C7A 
$320 
$8c7r 
$321 
$8C54 





#RDPRO 


“RAEPI 


:RDEPI 


; IDEM AVEC 1 OCTET POUR SYNCR 
+ SENCR 


<MAXPI 


:MAXSE 


*VTOCSET 


“PISTE 


: SECTEUR 


«ON MODIFIE LE OOS (PISTE 11} 
SANT] 
<TESTDOS 


<RETABL 
4TEST 


<QUID! TRANSFERT D'OCTETS -> 5320 
ON TROUVE LES PROLOGUES EPILOGUES 
DE READ ET WRITE + SYNCR ET VICC 
{PISTE EN TETE 





613 STA $9£3? 

















































































él4 RTS 
615 
616 MITX 
617 LOA 4538 : NORESET 
618 STA $3F4 
619 £OA #$A5 
620 STA S9E37 PAS DE BOOT SI RESET 
621 RTS 
622 
623 MOTY 
624 LDA 4$01 ‘COMMANDE POUR READ 
625 STA COM 
626 JSR RNTS +ON UTILISE RNTS 
627 JSR RESTORE 
628 RTS 
629 RNTS LDA 4504 52 PARAMETRES 
630 STA SECONDE “MAIS #PISTE EN TETE" 
631 JSR SAUVEG 
632 JSR O0ECODE 
633 JSR CONVERT 
634 
635 STA STR # LE ÎER C'EST SECTEUR 
636 PIST JSR CONVERT 
627 STA TRK 4 LE 2ND TRACK 
639 
639 LDA 4500 
640 STA ERR ; C@ME CA SI ERR<>00 Ÿ À ERREUR 
641 
642 
643 GO LOA #/10B 
644 LOY #10B “RWTS 
645 JSR $3D9 :ON SAUTE AUX VRAIS RWTS. 
646 RTS 
647 
648 MOTE LOA 4504 
649 STA COM .:FORMATTAGE SANS 0OS SANS CATALOG 
650 UMP GO 
651 
652 MOTAI 0e :BUFAS.BUFFER 52000 DE I0B EN ASCII 
693 LDA 4500 
654 STA $iA 
693 LDA 4520 
656 STA $1B ‘ADRESSE DE DEPART 
657 LDA 4#500 : PASSE 
658 STA PASSE 
659 
660 JP LDA PASSE 
661 JSR PRBYTE 
602 LDA ga" 
643 JSR SFDFO “APFICHE À 
664 LDY 900 
665 ZOOPI LDA (S14},Y 
666 JSR $FDFO 
667 INY 
663 CPY #32 <ON FAIT 32 CARACIÉRES 
669 BNE LOGPI 
574 LOA #508 4READ TRK : l PARAMETRE 670 USR $FCE2 ‘ CR 
575 STA SECONDE 671 LOA #32 
576 UJSR SAUVEG 672 cLC 
577 675 ADC SIA 
578 JSR DECODE 674 STA SIA 
579 675 STA PASSE 
590 LDA #$00 676 CMP #$00 :POUR 255 CARACIERES 
Se STA COM : ON MET LE DISK EN MARCHE 677 BME JP 4 LIGNE SUIVANTE 
582 JSR PIST 678 
593 679 JSR SFC62 ; CR 
584 LDA TRK ;1JL'ENVOYER EN PISTE N 680 
553 JSR MYSEEK ‘C'EST FAIT. 681 RTS 
586 682 
597 LDA #$00 :2)MAINTENANT ON VA LIRE NISBLES 683 
588 STA IMs#1 ET LES STOCKER DE 52000 À S3FFF. 684 MOTBI 
589 LOA 4520 653 LOA 4502 ‘ON ECRIS LE BUFFER 
590 STA  IM2 686 STA COM 
s9i LDY #500 :IM+1 CONTIENT ADRESSE STOCKAGE 687 USR RNTS 
592 688 JSR RESTORE :NRITE 
593 LDX #560 :NB SLOT*16 689 RTS 
594 LDA $CO8E,X ;STROBE LPCTURE 690 
595 TRKR LDA $CO8C,x ‘LIS NIIBLE 691 MOTCI LOA ERR <ON REGARDE SI ERR<>0 
596 BPL TRKR :TANT QU'IL N'EST PAS BON... 692 STA 5300 :AU PASSAGE ON LA LAISSE EN 5300 
597 IN STA $2000 :STOC KE 693 CÆæ 4500 
596 INC IMt] :ON BALADE LE POINTEUR 694 BNE ERREUR :SI OUI ON L'AFFICHE 
599 BNS TRAR 635 LOA 4NONP :SI NON... 
600 INC  IMe2 696 LDY 4/NONP 
601 LDA IMt2 697 JSR STROUT 
602 CÆ 94$3F :ON STOPPE EN $3F00 698 RTS 
603 BNE TRKR 639 ERREUR CI #$S10 
604 700 BNE VOLUME 
605 LOA Sco88,x :ON ARRETTE TOUT ! DISK:ST@P! 701 LDA #WP 
606 JSR  RESTORE ‘ON RECUP. TXTPIR 702 LOY #/WE 
607 703 JSR STROUT 
608 RTS “FINI. 704 RTS 
609 mon 705 VOLUME CMP 9520 
610 LDA 9500 :ON VECTO@RISE RESET EN RAM 706 BNE BI2A 
é1i STA S3F4 707 LOA VOL 


ET DS LE DCS SOR 8COT #/voL 
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709 
710 
71i 
712 
713 
714 
715 
716 
Far 
718 
719 
720 
721 
722 
723 
724 
725 
726 

727 
728 
729 
730 
731 

732 
733 
734 
735 
738 
73? 
738 
739 
740 
741 

742 

793 
744 
745 
746 
747 
748 
749 
750 
751] 

752 

753 
754 
755 
756 
757 
758 
759 
760 
761 

762 
763 
764 
765 
766 
767 
768 
769 

770 
771 

772 
773 
774 

775 
776 
777 
778 
779 
780 
781 

782 
783 
784 

785 
786 
787 

788 
739 
790 
791 
792 
v93 
794 
795 
796 
797 
739 
799 
800 
801 

802 
803 
804 


BIZA 


RTWA 


CAALORS 


RYRAM 


PAOV 


AEXE 


PEXE 


STROCT 
4540 
RTWA 
#81Z 
4812 
STR@UT 


#$80 
CAALORS 
SRTW 
#/RTN 
STR@UT 


#CA 
f/CA 
STROUT 


LXYRAP 
$3F6 

# /KYRAMP 
$3F7 


#XY 
#/KYM 
STROUT 


$C007 
#512 
SECONDE 
SAUVEC 
9ECOUE 


CONVERT 
A14 
CONVERT 
A1L 


CONVERT 
A2R 
CONVERT 
AL 


CONVERT 
A4A 
CONVERT 
AgL 


<ON AFFICHE "KYRAM OK" 
ET ON VECTORISE VSRS LE DEB8OT 


‘ON VA UTILISER $CID0 mEM 
+6 PARAMTRES 


<PTEORT 


zPTFAIBLE :ADD 


:FIN (PTFORT) 


+ (PTFAIBLE) 


*MEV PRINCIPALE VERS AUXI 


MOVE 


RESTURSE 


$cO07 
#512 
SECONDE 
SAUVEG 
DECODE 


CONVERT 
AA 
CONVERT 
AIL 


CONVERT 
A2H 
CONVERT 
A2L 


CONVERT 
A4A 
CONVERT 
A4L 


MOVE 


REST@RE 


$cao7 
$3F2 
$35D 
53€3 
$3EE 
#SFE 
4SFF 


XFER 


$co07 
$3r2 
$35D 
$3F3 


"IŒME TRAFFIC QUE PRECED. 


VERS MENOIRS PRINCIPALE 


EM $C100 
:RECUPERE L'ENTREE À CHAUD DU DOS 


;ON MET L'INDIC V À 1 


C'EST PARTI.,, 


805 
806 
807 
86s 
803 
810 
811 
812 
8123 
814 
815 
816 
8i7 
818 
813 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
83 
8351 
832 
833 
834 
835 
836 
837 
838 
839 
840 
84i 
842 
843 
CET 
845 
346 
847 
848 
843 
850 
851 
852 
853 
854 
855 
856 
857 
858 
839 
860 
86t 
862 
863 
864 
865 
866 
867 
868 
863 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
882 
893 
894 
895 
896 
897 
858 
899 
$00 


R£ETP 
TRANS1 


RETA 
TRANS2 


$3£E 


XFER 


#500 
PEXE ,X 
$320,xX 


#520 
IRANSI 


#500 
AEXE.,X 
$320,X 


#520 
TRANS2 


“TRANSFERT EN 5320 PEXE 


TRANSFERT EN $320 AEXE 


* CES ROUTINES PERMETTSNT D'ALLER CHERCHER DANS A 
* DES VALEURS DS LE BUFFER (EX “DSAA") OÙ EN MEV 
#* BASIC (EX AS). 


SAUVEC 


RESTORE 


DECDDE 


OPERROR 


VARIABLE 


CODE 


kOP 


CONVERT 


$88 
$1A 
$B9 
$18 


SIA 
$B88 
$18 
$B9 


BUFFIN 


#505 
BUFFIN+I 
$B6 

$89 


#$05 

({BUFFIN),Y 
#522 
VARIABLES 
SECONDE 
(BUEFIN).Y 
#522 
OPERROR 
$88 


SFBE3 
#OPERRORM 
$/OPERRORM 
STROUT 
$D43C 


CHRGET 


4501 
($83),Y 
$88 


($831,Y 
$B9 


VALTYP 
#$FF 
OPERROR 


#530 
OPERROR 
#$3A 
HOP 


#52F 


#541 
OPERROR 
#547 
OPFRROR 


#54 
#$00 


($B8),Y 
CODE 


“ON SAUVEGARDE LES POINTEUR 
*DU BASIC (TXTPTR} 


ON LES REMET OU ILS ETAIENT 


*POSITION DES POINTEURS SUR OCTEIS 
:QU'IL FAUT (PARAMETRES) 
‘ON SE POSITIONNE APRES LE MOT 


;ON À UNE TER " ? 

: NON, CA DOIT ETR£ DU XS 

:N PARAMETRES PLUS LOIN-.. 

: ON À UNE 2ND “ ? 

BON: ERREUR OPERANDE 

‘C'EST SON,ON SE PREPARE À DECODER 


‘BSEP 
< *KYRAÏ* ERREUR OPERANDE 


BASIC 


/ CHÊRCHE VARIABLE POINTEE PAR(SB8) 


{ON PREND SON ADRESSE... 


:SI JAMAIS C'EST PAS UNE CHAINE... 


r+.ON LAISSE TOMBER. 

A EST UN CHIFFRE ? 

NI CHIFFRE NI LETTRE;DEHORS! 
-C'EST UNE LETTRE 

<C*EST UN CHIFFRE ON CODE HEXA 
“ENTRE À ST F? 

:ECK, NON... 

;NON PLUS.., 


‘C'EST SON ON CODE HEXA 


‘ON PREND LE I£ER 


ON LE CODE 
‘ON LE MULTIPLIE PAR 16 





Pom's n° 29 
EEE ———— 


21 







904 STA 
905 INY 
906 LDA 
907 JSR 
908 CLC 
909 ADC 
910 TAX 
911 LDA 
912 CLC 
924 ADC 
9514 BCC 
915 INC 
916 JUMP STA 
917 TXA 
918 RTS 
519 

921 

922 CSTLINE LDA 
923 STA 
924 LDA 
925 STA 
926 

927 LOX 
928 

929 UMP 
930 

931 CHARGE JSR 
9472 INX 
933 SAUT LOY 
934 LDA 
935 PHA 
936 TXA 
937 TAY 
938 PLA 
933 STA 
940 CMP 
941 BEQ 
942 CMP 
943 BNE 
944 

945 STOF RTS 
946 

947 LOUPPRIN LDA 


948 STA 
949 

950 LDA 
951 STA 
952 LOA 
953 STA 
934 

955 NOUVEAU LDY 
956 * 

957 LOOPA LCA 
958 CMP 
959 BNE 
960 INY 
361 CEY 
962 BNE 
963 

964 RTS 
965 

966 SUIVANT LDA 
967 CLC 
68 ADC 
969 STA 
970 LDA 
971 ADC 
972 STA 
973 

974 LDX 
975 INX 
976 STX 
977 CPX 
978 BNE 
979 RTS 
980 

381 ERROR JSR 
382 LDA 
983 LDY 
384 JSR 


LISTEVOC ASC 










992 ASC 
993 ASC 
994 ASC 
995 ASC 


ASC 









PASSE 


($B8),Y 
CO0E 


PASSE 


#500 
BUFFIN 
#$03 
BUFFIN#1 


4500 
SAÛT 
CHRGET 


#500 
($B8},Y 


(BUEFIN),Y 
#53 
ST 

#500 
CAARGE 


#$00 
COMT 


#LISTEVOC 
voc 
#/LISTEVOC 
voc+1 


#$00 


(BUFFIN},Y 
(vOC},Y 
SUIVANT 


#$505 
LOOPA 


COMÆT 


COMT 
#40 
NOUVE AU 


$FBE4 
#SNERROR 
#/SNERROR 
STROUT 

























































































“ON LUI AJOUTE LE SECOND 


‘ON AJUSTE LES POINTEURS POIUR LA 
“SUITE. 


‘A CONTIENT LES 2 ASCII EN 1 HEXA 


ADRESSE BOUFFER 


DE SINTERPRETEUR 


; 


; 


POINTE CARACT SUIVANT DS BU BAS 
“ON UTILISE X COMM INDEX 


GET CAR 

5X-2>Y 

4 TRANSFERT D'UN CARACTERE 

/S1 “:° ALORS ON À FINI 

C'EST FAIT 

:SI C'EST FIN DE La LIGNE PAR£IL 
‘ON CONTINLE SINON 


FIN 


‘ON COMMENCE PAR LE MOT NWa.0 


OU EST LA LISTE DES MOTS? 


‘ON COMPARE MOT À MOT 
;S1 Où UNE<> PASSE AU MOT SUIVANT 


MAXI 
ON TESTE UN NOUVEAU MOT. 


:BIP 
:SYNTAX ERROR:BOUM! 





ICI ON À LA LISTE DES MOTS AOMIS 


“COMMSLRWISCHKSU! 
{NCCHKTSTPRNOP RO‘ 
‘WAPRONDPROWAE PI! 
‘RBEPIRAPRORDP RO‘ 
{RAEPIRDEFISYNCR"* 


“MAXPIMAXSEVT,SET! 








997 ASC 
5s8 ASC 
999 ASC 
1000 ASC 
1001 ASC 
1002 ASC 
1003 
1005 

1006 * DIVERSES 
1007 

1008 FIWC LDA 
1009 LDY 
1010 JSR 
1011 

1012 

1013 RTS 
1014 

1015 CAD LDA 
1616 LDY 
1017 JSR 
1018 RTS 
1019 

1020 

1021 OPERROR!{ HEX 
1022 ASC 
1023 BEX 
1024 SNERROR HEX 
1025 ASC 
2026 REX 
1027 

1028 «Y HEX 
1029 ASC 
1030 HEX 
1031 ASC 
1032 HEX 
1033 ASC 
1034 LBEX 
1035 CMD ASC 
1036 HEX 
1037 ASC 
1038 HEX 
1039 ASC 
1040 HEX 
1041 CM 

1042 ASC 
1043 

1044 HEX 
1045 ASC 
1046 

1047 HEX 
1048 ASC 
1049 HEX 
1050 ASC 
1051 HEX 
1052 CMC2 ASC 
1053 REX 
105€ ASC 
1055 HEX 
1056 ASC 
1057 HEX 
1058 ASC 
1059 HEX 
1060 ADREAD ASC 
1061 HEX 
1062 ASC 
1063 HEX 
1064 ADREAD] HEX 
1065 ASC 
1066 REX 
1067 ADREAD2 HEX 
1068 ASC 
1069 HEX 
1070 ADYRITE HEX 
1071 ASC 
1072 HEX 
1073 CHKSUIM  HEX 
1074 ASC 
1075 BEX 
1076 SYNC REX 
1077 ASC 
1078 HEX 
1079 ADRTST 

1080 ASC 
1081 HEX 
1082 VTec HEX 
1083 ASC 
1084 HEX 
1085 PISTE ASC 
1086 HEX 
1087 NBSECT ASC 
1088 HEX 
1089 SECTEUR ASC 
1090 REX 
1092 NBPISTES ASC 
1092 HEX 


*ASAUVPSAUV@UI D!’ 
tRDTRKRESETNRESE! 
"SECRESECWRIN'ITD‘ 
'BUFASDIACNKYRAN' 
*AMOVEPMOVEAEXEC * 
tPEXECRETPRRETAU! 


ROUTINES OU DONNEES D'AFFICHACE 


#ADREADI1 
#/ADREAD1 
STROUT 


“AFFICAE "FIN DE CHAMP” 


#ADRE AD2 
#/ADREAD2 
STROUT 


82 TEXTES D'ERREURS... 
T#XYRAM* ERREUR D'OPERANDE ." 
00 

80 

T#KYRAM* ERREUR DE SYNTAXE ." 
00 


NRRÉIISAIRRN 


" * 


KYRANM *" 


Li RAA TANN 


/ SLRWTS / 6QUID! / 
80 
“/ 6CAKSU / 


8000 


SNOCHK / 6TS1PR / 


"/ &WAPRO / &WDPRO_ / &WAEPI_ / 
en 


/ &RAPRO_ / &RDPRO_ / &RAEFI_ / 
8D 

"/ &SYNCR_ / 
8» 

7/ 6ASAUV / 
8D00 

"/ ERDTRK_ / 
80 

"/ SAMOVE_ / 
82 

"/ 8RETER 
8D 


EMAXFI_ / 6MAXSE_ / 


4SECRE_ / 4SECWR_ / 
SPMOVE_ / &AEXEC / 


/ &RETAU / 


8D00 


“AFFICRE "CHAMP DONNEES : 


" 


SBCFAS * 


6NOPRO " 


SWDEPI_" 


SRDEP? " 


SUTSET_" 
éPSAUV / £RESET / 6NRESE " 
SINITO * 
SPEXEC" 


£PIACN / &KYRAMT 


= RWNTS-PARAMETRES===—m—— ” 


8D 

"L READ SYSTEM: CHAMP ADRESSE D" 
09 

&D 

Lu FIN DE CHA vd" 
00 

80 

Qi CRAMP DONNEES à" 
00 

8082 


“— WRIT SYSTEM: CHAMP ADRESSE à” 
00 


8D8D 

"— CHEKSUM D" 
00 

80 


"  PROO à" 


"— TABLE VTOC PISTEÙ" 
Pn\PrS7Eù" 

Le MAXSED" 

T  SECTE{RD" 


T  MAXPIdT 
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1093 SAUVE ASC. SAUII0" 1118 #P ASC ‘"“*#KYRAM* LE DISK EST PROTEGE EN ECRITURE." 
1054 HEX 00 122 HEX 8000 
1055 TRKC REX  6D 1120 KYM HEX 8D 
1096 ASC "- PRG COURANT A$ù" 2221 ASC "*KYRAM* L'AMPERSAND EST OPERATIONNEL." 
1097 REX 00 2122 HEX 8000 
1098 LD ASC " LSèù" DAT pe 
1099 REX 00 21247 
1100 CTRK HEX 80 1125 
2:01 ASC "- TRK COURANT KYRAMD" 1126 PRESENT HEX 80 
1102 HEX 00 1927 ASC " RAÉARÉRRRÉRÉRE MX 86" 
1103 D1RK ASC) A POS D * 2128 REX 680 
1104 HEX 00 1129 ASC  "6.MENIER #7 KYRAM V2.2 * STG" 
1105 DOTTES HEX 80 1230 HEX 80 
1106 A  _ ” 1131 Ag " LELLELELELLELZ ZX) 
1107 REX 00 1232 HEX  808D00 
1108 Newr ASC "*KYRAM* PAS D'ERREUR À LA DERNIERE CMO." 1135 
1109 HEX  8D00 1134 DESUT JSR $FC58 “HOME 
1110 vOL ASC "*KYRAM* ERREUR CONCERNANT LE VOLUME ." 1135 LBA PRESENT 
21112 HEX  8D00 1136 LDY #/PRESENT 
1112 BIZ ASC "*KXYRAM* ERREUR CONCERNANT LE LECTEUR," 1137 USR SIROUT 
d74 HEX  8D00 1138 
1114 RIT ASC MYKYRAM» RTS NE PEUT LIRE PROLOC&EPILOC." 1139 USR KYRAM 
1115 HEX  8D00 1140 R1'S 
1116 CA ASC "#KYRAM* CODE NON ROMOL®G DDS/PRG <> G" EEE 
1117 HEX  8D00 
Réca itulation 4140- 20 3A DB AD 7A BC 20 DA 42C0- 20 C5 46 6D 5D B8 20 64 
D 4148- FD AD 7F BC 20 DA FD AD 42C8- 46 60 A9 OC 85 07 20 5B 
‘KYRAM' 4150- 64 BC 20 DA FD 20 FF 47 42D0- 46 20 6D 46 20 C5 46 6D 
| ; *. 4158- AD AE BC 20 DA FD AD B3 42D8- AE BC 20 C5 46 8D B3 BC 
Après avoir saisi ce code sous 4160- BC 20 DA FD AD B6 BC 20 42E0- 20 CS 46 8D B8 BC 20 64 
moniteur, vous le sauvegarderez par 41686- DA FD 20 07 46 AD 53 B6 42E6- 46 60 A9 OC 85 07 20 5B 
BSAVE KYRAMAS$3FFAL$D68 4170- 20 DA FD AD 58 B@ 20 DA 42F0- 46 20 6D 46 20 C5 46 6D 
3FFA- 20 54 4D 4C 3C D4 4176- FD AD 5D B6 20 DA FD 20 42F8- 9E B8 20 C5 46 8D A3 B8 
4000- AD 00 04 85 1E AD O1 04 4180- }F 47 AD 9E B6 20 DA FD 4300- 20 ÈS 46 BD A8 BB 20 64 
4008- 85 1F A9 4B 8D 00 04 A9 41686- AD A3 B6 20 DA FD AD A8 4308- 46 60 A9 OC 85 07 20 5B 
4010- 59 6D 01 04 20 E9 46 20 4190- B6 20 DA FD A9 FB AO 4A 4310- 46 20 6D 46 20 C5 46 6D 
4018- OD 47 AS iE 6D 00 04 A5 4198- 20 3A DB A£ 2E B9 A9 O1 4316- 550B9 20"CS 46 68D 5F B9 
4020- 1F 8D 01 04 A9 45 65 1A 41A0- EO 13 FO 02 A9 00 20 DA 4320- 20 C5 46 8D 6A B9 20 64 
4028- A9 40 85 1B A5 CE C9 28 41A8- FD A9 16 A0 4B 20 3A DB 4328- 46 60 A9 OC 85 07 20 5B 
4030- 80 10 OA 16 65 CE 18 65 4180- AE F3 B8 A9 01 EO F2 FO 4330- 46 20 6D 46 20 CS 46 6D 
4038- IA DO 02 E6 1B 65 1lA 6C 41B8- 02 A9 00 20 DA FD A9 SE 4336- E7 BB 20 C5 46 6D F1 BB 
4040- IA 00 4C 3E 47 4C C6 40 41C0- AO 4B 20 3A DB AD 92 B2 4340- 20 C5 46 6D FC B8 20 64 
4048- 4C E6 40 4C 6A 42 4C 70 41C8- 20 DA FD A9 09 AO 4B 20 4348- 46 60 A9 OA 85 07 20 5B 
4050- 42 4C 76 42 4C 81 42 4C 41D0- 3A DB AD 60 BC 20 DA FD 4350- 46 20 6D 46 20 C5 46 8D 
4058- 68A 42 4C AÂ 42 4C CA 92 41D68- A9 955 A0 4B 20 3A DB AD 4358- 91 B9n200CS 46" 6D 9B"B9 
4060- 4C EA 42 4C OA 43 4C 2A 41E0- FE BE 20 DA FD A9 3F A0 4360- 20 64 46 60 A9 OA 85 07 
4068- 43 4C 4A 43 4C 64 43 4C 41E6- 4B 20 3A DB AD 2A BF 20 4368- 20 5B 46 20 6D 46 20 C5 
4070- 7E 43 4C 95 43 4C A9 43 41F0- DA FD A9 1F AO 4B 20 3A 4370-46 6D 35 B9 @0 C5 46 6D 
4078- 4C BD 43 4C D7 43 4C DD 41F6- DB AD 01 AC 20 DA FD A9 4376- 3F B9 20 64 46 60 A9 06 
4080- 43 4C E3 43 4C 7A 44 4C 4200- 4A A0 4B 20 3A DB AD OD 43680- 85 07 20 5B 46 20 6D 46 
4088- C1 44 4C CC 44 4C D7 44 42068- BO 20 DA FD A9 69 AO 4B 4388- 20 C5 46 6D 60 BC 68D 3E 
4090- 4C 45 45 4C 06 45 4C OE 4210- 20 3A DB AD 73 AA 20 DA 4390- B6 20 64 46 60 A9 08 85 
4098- 45 4C 51 45 4C 9A 45 4C 4216- FD AD 72 AA 20 DA FD A9 4396- 07 20 5B 46 20 6D 46 20 
40A0- AC 45 4C DF 45 4C 12 46 4220- 80 A0 4B 20 3A DB AD 61 43A0- C5 46 68D FE BE 20 64 46 
40A8- 4C 2A 46 4C 3F 46 4C 4D 4226- AA 20 DA FD AD 60 AA 20 43A8- 60 A9 08 65 07 20 5B 46 
40B0- 46 01 60 01 00 00 00 C2 4230- DA FD A9 69 AO 4B 20 3A 43B0- 20 6D 46 20 C5 46 6D 2A 
40B6- 40 00 20 00 00 00 00 00 4236- DB AD B5 40 20 DA FD A9 43B6- BF 20 64 46 60 A9 OA 85 
40C0- 60 01 00 O1 EF D8 20 58 4240- AO AO 4B 20 3A DB AD E7 43C0- 07 20 5B 46 20 6D 46 20 
40C8- FC A9 49 AO 48 20 3A DB 4248- 03 85 06 AD E6 03 85 07 43C8- C5 46 8D 01 AC 20 CS 46 
40D0- A9 97 AO 46 20 3A DB A9 4250- A0 00 B1 06 685 1A CB B1 43D0- 8D OD BO 20 64 46 60 A9 
40D8- 11 AO 49 20 3A DB A9 B2 4258- 06 85 1B AO 04 B1 1A 20 43D6- A9 6D 92 B2 60 A9 69 6D 
40E0- A0 49 20 3A DB 60 20 58 4260- DA FD A9 AB AO 4B 20 3A 43E0- 92 B2 60 AD 7A BC 8D 20 
40E8- FC A9 49 AO 46 20 3A DB 4268- DB 60 A9 13 8D 2E B9 60 43E8- 03 AD 7F BC 6D 21 03 AD 
40F0- A9 52 AO 4A 20 3A DB AD 4270- A9 00 8D 2E B9 60 A9 F2 43F0- 84 BC 68D 22 03 AD AE BC 
40F68- 55 B9 20 DA FD AD 5F B9 4276- 6D F3 B8 A9 E7 6D FE B6 43F6- 6D 23 03 AD B3 BC 8D 24 
4100- 20 DA FD AD 64 B9 20 DA 4280- 60 A9 00 6D F3 B6 68D FE 4400- 03 AD B8 BC 8D 25 03 AD 
41087 ED 200ER 47 AD" 9INR9, 20 4288- B8 60 A9 OC 85 07 20 5B 4408- 53 B8 8D 26 03 AD 58 BB 
4110- DA FD AD 9B B9 20 DA FD 4290- 46 20 6D 46 20 C5 46 8D 4410- 68D 27 03 AD 5D BB 68D 26 
4118- 29 07 468 AD E7 86 20 DA 4298- 7A BC 20 C5 46 8D 7F BC 4418- 03 AD 9E B6 6D 29 03 AD 
4120- FD AD FI B8 20 DA FD AD 42A0- 20 C5 46 6D 84 BC 20 64 4420- A3 B6 6D 2A 03 AD A6 B6 
4126 FC. B6 20NDA FD 20/FENA IT. 42A8- 46 60 A9 OC 85 07 20 5B 4428- 6D 2B 03 AD 55 B9 8D 2C 
4230— AD 35%*B9; 20 DA, FD'ADN3F 42B0- 46 20 6D 46 20 C5 46 8D 4430- 03 AD 5F B9 8D 2D 03 AD 
4138- B9 20 DA FD A9 DA AO 4A 42B6- 53 BB 20 C5 46 8D 56 BB 4436- 6A B9 8D 2E 03 AD 91 B9 
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SR SE 


4AB8- FC 00 8D AO A0 A0 A0 A0 4BA0- AO A0 A0 A0 AO A0 C4 CF 4C88- CD CF CC CF C7 AO C4 CF 
£ACO0- A0 A0 AO AO AO A0 A0 AO 4BR48- 03 FC 00 8D AD AD AD AD 4C90- D3 AF DO D2 C7 AO BC BE 
4AC8- AO A0 C3 C8 C1 CD DO A0 4BB0- AD AD AD AD AD AD AD AD 4C98- AO C7 8D 00 AA CB D9 D2 
4AD0- C4 CF CE CE C5 C5 D3 AO 4BB8- AD AD AD AD AD AD AD AD 4CA0- C1 CD AA AO CC C5 AO C4 
4AD8- FC 00 8D 8D AD A0 D7 D2 4BCO- AD AD AD AD AD AD AD AD 4CA8- C9 D3 CB A0 C5 D3 D4 A0 
4AE0- C9 D4 AO D3 D9 D3 D4 C5 4BC8- AD AD AD AD AD AD AD AD 4CB0O- DO D2 CF D4 C5 C7 C5 AO 
4A£8- CD BA A0 C3 C8 C1 CD DO 4BD0- AD AD AD AD 00 AA CB D9 4CB8- C5 CE A0 C5 C3 D2 C9 D4 
4AF0- A0 C1 C4 D2 C5 D3 D3 C5 4BD8- D2 C1 CD AA AO DO C1 D3 4CC0- D5 D2 C5 AE 8D 00 8D AA 
4AF8- A0 FC O® 8D 8D AD A0 C3 4BE0- A0 C4 A7 C5 D2 D2 C5 D5 4CC8- CB D9 D2 C1 CD AA AO CC 
4B00- C8 C5 CB D3 D5 CD A0 FC 4BE8- D2 A0 C1 A0 CC C1 A0 C4 4CD0O- A7 C1 CD DO C5 D2 D3 C1 
4B08- 00 8D AD A0 D3 D9 CE C3 4BFO0- CS D2 CE C9 C5 D2 C5 A0 4CD8- CE C4 AO CS D3 D4 AO CF 
4B10- C8 D2 CF A0 FC 00 A0 A0 4BF8- C3 CD C4 AE 8D 00 AA CB 4CE0- DO C5 D2 C1 D4 C9 CF CE 
4B18- DO 02 CF C4 A0 FC 00 8D 4C00- D9 D2 CI CD AA A0 C5 D2 4CE8- CE CS CC AÀ£ 8D 00 8D AQ 
4B20- AD A0 D4 C1 C2 CC C5 A0 4C08- D2 C5 D5 D2 A0 C3 CF CE 4CF0- A0 AO A0 ,A0 AO A0 A0 A0 
4B28- 06 04 CF C3 A0 AO A0 DO 4C10- C3 C5 D2 CE C1 CE 04 A0 4CF8- A0 AO A0 AO AC AA AA AA 
4B30- C9 D3 D4 C5 FC 00 A0 A0 4C18- CC C5 A0 D6 CF CC D5 CD 4D00- AA AA AA AA AA AA AA AA 
4B38- DO C9 D3 04 C5 FC 00 A0 4C20- C5 AE 8D 00 AA CB D9 D2 4D08- AÀ AA AA A0 8D C7 AE CD 
4B4@- A0 A0 A0 CD C1 D8 D3 C5 4C28- C1 CD AA A0 C5 D2 D2 C5 4D10- C5 CE C9 C5 D2 A0 A0 A0 
4B48- FC 00 A0 A0 D3 C5 C3 04 4C30- D5 02 A0 C3 CF CE C3 C5 4D18- AO A0 A0 AA AO CB D9 D2 
4B50- C5 D5 02 FC 00 A0 A0 CD 4C38- 02 CE C1 CE D4 AO CC CS 4D20- C1 CD A0 D6 B2 AE B2 A0 
4B58- Ci D8 DO C9 FC 00 AO A0 4C40- A0 CC C5 C3 D4 C5 DS D2 4D28=- AA AO A0 AO AO A0 A0 A0 
4H60- AO A0 D3 C1 D5 B1 Bi FC 4C48- AE 8D 00 AA CB D9 D2 C1 4D30- A0 D3 D4 C7 8D AO AO A0 
4B68- 00 8D AD A0 DO D2 C7 A0 4C50- CD AA AO D2 D7 D4 D3 A0 4D38- A0 AO AO A0 AO AO A0 A0 
4B70- C3 CF D5 D2 C1 CE D4 A0 4C58- CE C5 A0 DO C5 D5 D4 A0 4D40- A0 AO AC AA AA AA AA AA 
4B78- A0 AO A0 A0 C1 A4 FC 00 4C60- CC C9 D2 C5 AO DO D2 CF 4048- AA AA AA AA AA AA AA AA 
4B80- A0 AO AO A0 AO CC A4 FC 4C68- CC CF C7 A6 C5 DO C9 CC 4D50- AA 8D 8D 00 20 58 FC A9 
4B88- 00 80 AD A0 D4 D2 CB A0 4C70- CF C7 AE 8D 00 AA CB D9 4D58- EE AO 4C 20 3A DB 20 9A 
4B90- C3 CF DS D2 Ci CE D4 A0 4C78- D2 C1 CD AA A0 C3 CF C4 4D60- 45 60 

4B98- A0 CB D9 D2 C1 CD FC 00 4C80- C5 AO CE CF CE A0 C8 CF 


Les reliures Pom's 


Pour nos lecteurs comme pour nous, 
la revue Pom's est une source précieuse 
d'information. À ce titre, nous sommes 

amenés à la consulter souvent. 


Pour faire suite à de nombreuses 
demandes, et afin de facilité le rangement 
et les recherches dans Pom's, les Éditions 
MEV vous proposent des reliures toilées 

propres à recevoir six numéros, Soit 
un an de documentation. 


Une fois reliées, les revues forment 
un livre agréable à utiliser et insensible 
aux manipulations répétées. 


Ces reliures sont de couleur Bordeaux, 
le logo ‘Pom's" est frappé au dos et un aplat 
est réservé pour noter l'année. 





Reliures Pom's : 60,00 Frs franco 
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ProDOS et fichiers 


détruits 


Si vous avez tendance à 
‘bidouilier’ en assembleur dans 
les méandres de votre Apple, il 
peut vous arriver d'exciter les 
adresses fatidiques situées vers 
$COE0, qui déclenchent les 
routines ‘hardware’ d'écriture sur 
disque. 

Vue l'heure souvent tardive, le 
désordre régnant sur le bureau, et 
le walkman qui vous distille une 
mélopée hypnotique, la consé- 
quence quasi-assurée est l'efface- 
ment total d'une piste, souvent la 
piste zéro. 


Sous DOS7%:3; cela affeetait 
rarement l'intégrité logique de la 
disquette. En revanche, sous 
ProDOS, l'ensemble des poin- 
teurs internes permettant d'accé- 
der aux fichiers ont disparuet la 
disquette est apparemment bonne 
pour la casse. 


Apparemment seulement car, 
avec un peu de patience et 
d'habileté, les fichiers pourront 
être restaurés. En effet, ils sont 
toujours présents mais ProDOS 
ne sait plus les retrouver. 


C'est donc par nécessité que sont 
nées les trois commandes 
suivantes : 


+ INDEX, pour retrouver tous les 
blocs index des fichiers ; 

+ RBLOC pour lire directement 
un bloc en mémoire ; 

+ WBLOC pourécrire directement 
un bloc en mémoire. 


Elles sont entièrement compa- 
tibles avec la routine CMDLOAD 
(Pom's 20). 


Utilisation 


Récupérer l'intégrité des fichiers 
ne peut pas être une opération 
automatique (ne rêvons pas !). En 
revanche, ces commandes ad- 





ditionnelles vous aideront consi- 
dérablement, pourvu que vous 
ayez une connaissance minimum 
de la structure d'un volume 
ProDOS. 


: Image du programme 


! exécuté lors du 


: démarrage du disque 


| Premier bloc du 
: directory 


Suite du directory 


Carte des blocs 
l utilisés 


Blocs libres, index 
ou données 


Dans mon cas, le démarrage 
incontrôlé du disque a eu pour 
effet non seulement d'effacer 
toute la piste zéro donc les blocs 
0 à 7, mais en plus de la rendre 
inutilisable. Elle avait été 
reformatée de façon fantaisiste, ce 
qui donnait des bruits inquiétants 
lorsque j'essayais de faire ne 
serait-ce qu'un CATALOG. 


Pour observer les causes du 
désastres, il suffit de charger un 
Nibble Editor et de comparer la 
piste O avec celle d'une autre 
disquette. Il est nécessaire, de 
toute façon, de reformater la piste 
endommagée, avec un utilitaire 
permettant un formatage partiel 
d'une disquette, puis de recopier 
la piste O issue d'une autre 
disquette ProDOS (votre copieur 
préféré fait probablement l'af- 
faire). 


Ceci dit, on dispose "dune 
disquette bonne en apparence, 
mais toujours inutilisable, car le 
‘directory’ recopié n'aiguille pas 
sur les bons fichiers. Ainsi, avant 





| Blocs Contenu 


Patrice Neveu 


de modifier le directory, il faudra 
connaître les emplacements de 
tous les fichiers à récupérer. 
Nous allons donc devoir les 
localiser, grâce à la commande 
INDEX. 


La commande 
INDEX 


Pour comprendre le fonction- 
nement de la commande index, il 
faut étudier la structure d'un 
fichier sous ProDOS. Dans la 
majorité des cas, c'est-à-dire pour 
les fichiers de plus de 512 octets 
et de moins de 128Ko (Sapling 
files), il est construit ainsi : 


* un bloc index contient tous les 
numéros de blocs sur lesquels 
Je programme est enregistré ; 

° puis, éparpillés sur la dis- 
quette, on trouve ces blocs. 


Sous ProDOS, les fichiers de 
moins de 512 octets (seedling 
files) sont pratiquement impos- 
sibles à retrouver car, étant donné 
qu'ils tiennent sur un bloc, ils ne 
sont pas localisés par un bloc 
index. Les fichiers de plus de 
128Ko et moins de 16 mégas 
(tree files) sont localisés par un 
bloc index “maître”, c'est-à-dire 
un index qui pointe vers un 
ensemble d'index, qui pointent à 
leur tour vers les blocs de 
données du fichier. 


Ainsi, lorsqu'on ne peut plus se 
fier au directory pour retrouver 
ses fichiers, le mieux est de 
chercher les blocs index. La 
commande INDEX va lire les 
blocs du disque un par un, et 
tenter de déterminer si un bloc 
peut ou non, être un bloc index. 
Elle a toutefois besoin que vous 
lui fournissiez le nombre de blocs 
que contient la disquette : 
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+ 280 pour un disque 5,25 
pouces ; 

+ 1600 pour un disque 3,5 
pouces ; 

* 127 pour le disque virtuel en 
mémoire auxiliaire, 


Les valeurs pour les ProFile et 
autres disques durs sont simples 
à déterminer, puisqu'un 
CATALOG affiche le nombre 
total de blocs. Bien sûr, mieux 
vaut avoir de la mémoire car, si 
c'est de votre disque dur dont il 
s'agit, vous n'en n'aurez 
peut-être pas un second sur lequel 
faire un essai. 


En cas de doute, donnez un 
nombre supérieur à la réalité : à 
partir d'un certain moment, 
INDEX affichera une suite 
ininterrompue de numéros de 
bloc en inverse ; vous en déduirez 
que le nombre de blocs du 
volume est immédiatement 
inférieur à cette suite. En règle 
générale, tout numéro de bloc 
affiché en inverse indique qu'il 
est impossible de lire ce bloc. 


INDEX s'inspire de la routine 
FIB publiée dans “Beneath Apple 
ProDOS”, mais en améliorant 
grandement les performances. 
Avec INDEX, un bloc index est 
automatiquement détecté comme 
tel (à l'exception des derniers 
blocs de directory) ; au contraire 
FIB produisait une très longue 
liste de blocs potentiellement 
index, dont bien peu l'étaient en 
réalité. L'algorithme utilisé est, 
en effet, plus discriminateur. 


Durant l'exécution de la 
commande, des numéros de biocs 
seront affichés (en affichage 
normal). Ce sont les blocs 
présumés être index. Sortez-les 
sur imprimante, ou notez-les, car 
nous allons maintenant les 
utiliser. 


Les commandes 
RBLOC & 
WBLOC 


RBLOC et WBLOC sont deux 
commandes supplémentaires : il 
faudra lire un bloc par RBLOC, 
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n° bloc précédent 


BLOC2 | 






0908: 44 43 
091%: 00 00 
0918: 00 CO 
0920: 
0928: 











premier fichier 







second fichier 
Ce fichier contient 
$000236 octets 
(566 en décimal) 









Lenom 


Le bloc n° 2 {premier bloc du 


premier fichier par exemple (n° 


Pour bénéficier des commandes 


le modifier en mémoire en 
utilisant le moniteur de l'Apple 
(accessible par CALL - 151), 
puis réécrire le bloc par WBLOC. 


L'exécution des deux commandes 
affiche également à l'écran les 
premiers octets du bloc et son 
adresse d'implantation. Ainsi, si 
la première adresse est $900, 
alors le bloc se trouve en 
$900-$SAFF. Les routines char- 
gent et déchargent uniquement la 
mémoire vive située après un 
éventuel programme Applesoft et 
ses variables simples. En 
conséquence, il est préférable de 
ne pas modifier un programme, 
ou l'exécuter, entre le RBLOC et 
le WBLOC correspondant. 


Il est maintenant préférable de 
s'assurer, par l'utilisation de 
RBLOC, que chaque bloc détecté 
par la routine INDEX correspond 
bien à un index de fichier. En 
particulier, le même numéro de 
bloc ne doit pas apparaître deux 
fois. 


990%: 00 08 03 00 


après Ja commande ‘RBLOC 2’. Pour modifier le numéro de bloc index du 


passer en moniteur (CALL = 151), puis avec le curseur, relire Ia ligne 
‘0938: en modifiant au passage le numéro. Réécrire le bloc en faisant 


- BLOC” et ‘- INDEX’. 









n'bfoc suivant 








$12 = 18 fichiers 
dans ls cfalogue 






















F9 48 4 .... YAAR $27: 
00 où /20-ge———<> | 2 = fichier de 2 à 256 blocs 
7 = longueur du nom 






























le bloc n° $0008 estie bloc 
d'index, c'est ce n° qu'on 
modiiera 

LAUX_TYPE : $7000 
Comme ce fichier est 

du type binaire, il s'agit de 
son aoresse de chargement. 









+ « &PRODO 




















catalogue}, tel qu'il est affiché à l'écran 







trouvé à l'aide de la commande INDEX), 









WBLOC 2. 






RBLOC, WBLOC et INDEX, il aura fallu faire 



























La structure du 
Directory 


Dès lors, nous avons toutes les 
informations nécessaires pour 
ré-insérer nos fichiers dans le 
directory. Pour lire le directory, il 
faut se rappeler que celui-ci 
commence toujours en bloc 2 ; 
c'est le bloc-clé. Puis, selon le 
type de disque, il continue sur 
plusieurs blocs consécutifs. En ce 
qui concerne la structure du 
directory, seuls les octets 
impliqués dans la récupération 
des fichiers sont signalés dans la 
liste qui suit. 


En début de chaque bloc 
directory, on trouve toujours 
ceci: 


$00-01 numéro du bloc précé- 
dent du directory pré- 
cédent. Si nul, on est 
dans le premier bloc ; 

$02-03 numéro du bloc suivant 


du directory. Si nul, on 
est en fin de directory. 


On ne touche pas à ces blocs 





qui ne servent qu'au chaînage 
interne, immuable par type de 
support. 


$25-26  FILE_COUNT 
Nombre de fichiers 
actifs dans le catalogue. 


À mettre à jour, en fin de 
travail, lorsque l'on saura 
exactement combien de fichiers 
sont à récupérer et à lister lors 
d'un CATALOG. 


Ensuite, à partir de l'octet $2B, 
sont placées 13 séries de $27 (39) 
octets qui décrivent individuel- 
lement les fichiers stockés. Pour 
chaque série, on trouve : 


$00 STORAGE, TYPE/ 
NAME. LENGTH 
type de fichier/longueur 
du nom, au format 
TTTTLLLE. 


Le type peut prendre les 
valeurs : 


$0 Entrée effacée, disponible 
pour réutilisation 

$1 Seedling file (1 bloc) 

$2 Sapling file (2 à 256 
blocs) 

$3 Tree file (257 à 32768 
blocs) 

$D Sous-catalogue 

$E Premiere entrée d'un 
sous-catalogue 

$F Première entrée du catalo- 
gue (voir précédemment) 


$01-0F  FILE_NAME 
nom du fichier. 


Au départ, mieux vaut soit ne 
pas y toucher, soit y mettre un 
caractère alphabétique. Les 
commandes RENAME seront 
pour bien plus tard. 


$10 EILESTYPE 
type du fichier 


Les types qui peuvent nous 
intéresser sont : 


$04 TXT fichier ASCII 
$06 BIN binaire 
$0F DIR  sous-directory 
$19 ADB base de donnée 
AppleWorks 
$IA AWP traitement 
de texte 
AppleWorks 
$IB ASP tableur 
AppleWorks 


PASCAL sous 
ProDOS 
BASIC 
Appiesoft 
programme 
langage 
machine 
relogeable 

$FF SYS système 

Pour déterminer le type appro- 
prié, il sera préférable d'utiliser 
la routine TDUMP du numéro 
20 de Pom's afin d'afficher le 
fichier et en déduire sa nature. 


$11-12 


$EF 
$FC 
$FE 


PAS 
BAS 
REL 


KEY _POINTEUR 
numéro du bloc index. 


À modifier aussitôt que l'on a 

utilisé INDEX et vérifié l'au- 

thenticité des blocs renvoyés. 
$123-14 BLOCKS_USED 
Nombre de blocs utili- 
sés par le fichier. 


Cela comprend les blocs index 
plus les blocs de données. 
Modifier ceci en fonction 
encore de ce que le bloc index 
a donné. 

$/5-177 EOF 

Longueur du fichier sur 

3 octets. 
Au départ, y mettre 512 fois le 
nombre de blocs trouvé. 
Ensuite, 1l sera toujours plus 
facile de le modifier par voie 
logicielle. 

$2F-20 AUX_TYPE 

dépend de FILE _ TYPE 


Longueur d'enregistre- 
ment (paramètre L dans 
OPEN) 

Adresse de chargement 
(paramètre A dans 
BSAVE) 

Adresse de chargement 
(lorsque sauvé par 
SAVE, normalement 
$801) 

Adresse des variables 
(sauvées par STORE) 
Adresse de chargement 
(habituellement $2008) 


Il est quasiment impossible de 
fixer ces adresses, à moins de 
se les rappeler, ou que le 
fichier soit issu d'un logiciel 
qui sauve toujours à la même 
adresse, 


TXT 


BIN 


BAS 


VAR 
SYS 





Les autres octets de chaque série 
sont hors-propos ici, et d'ailleurs 
non indispensables (par exemple 
les dates de création et 
modification). 


Après avoir 
retrouvé 
les fichiers 


Voilà, logiquement une fois tout 
ceci terminé, on devrait pouvoir 
prendre les utilitaire ProDOS et 
sauvegarder tous nos fichiers sur 
une bonne disquette ProDOS, car 
rapellons-le, ce que nous avons 
fait suffit seulement à reconnecter 
des fichiers au directory, et non à 
remettre la disquette entièrement 
en état. Entre autre, le schéma 
d'occupation des blocs n'est pas 
mis à jour, et il est donc impératif 
de ne sauvegarder aucun fichier 
sur le disque, 


Syntaxe des 
commandes 





Après avoir fait : 
-INDEX 
et 
-BLOC, 
vous disposez des commandes 
suivantes : 
INDEX <nb de blocs> 
[, S<numéro de slot>] 
{, Dénuméro de drive>] 
RBLOC <numéro du bloc> 
{, S<numéro de slot>] 
[, D<numéro de drive>] 
WBLOC <numéro du bloc> 
[,S<numéro de slot>) 
{, Dénuméro de drive>] 
Par exemple : 
INDEX 280,56 
INDEX 1600 
RBLOC 173,55,D2 
WBLOC 173 
Pour le disque virtuel /RAM, 
prendre S3,D2. 


Liste des fichiers sur la 
disquette Pom's 


T.INDEX.CODE 
source Big Mac (fonnat texte), 
commande INDEX | 
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r.BLOC.CODE 

idem pour commandes 

RBLOC & WBLOC 
INDEX 

module exécutable 
BLOC 


module exécutable Au 


nommée /POMS29/), les fichiers sont au format ProDOS. 





Source ‘T.INDEX.CODE' 


Aseombteur Big Mac, format TEXT 





1 LST OFF 

2 

1 CRG 52100 

4 

CRETE CEEEEEEEE ETES LLICLIILILIII III LILI 

6 * INDEX: Permet de localiser tous les #* 

La blocs susceptibles d'etre des * 

ve blocs index. * 

5 * L] 

19 ennososoossocorosessssscecosssssessesssee 

22 

124 

13 * Syntaxe: ® 

14 L 

1$ * INDEX <cotal> (,S<slot>! [.D<drlve>] . 

16 * . 

17 * Le prOUramæ va lire tous les blocs du disque * 

19 * jusqu'au nombre total Qu'on Lui indique dans . 

19 + commande, Si le bloc est susceptlbia d'etre un * 

20 * bloc index, 11 affiche s0n numero. e 

21 + * 

22 Ame rom. Pt * 

23 

26 mmmmmmmmmmmmmmmmm mm mn mm mm 

25 » Labels 

DE R==msmmmmmmcemm-sms=-- ne 

27 

26 SYNT_ERR = $40 : Code du vessage "SYNTAX 
ERROR' 

29 PTR o $48 # Pcinteur temporaire 

30 LINNUM = 550 + Résultat de GETADR 

31 STREND - s60 + Adresse du début de la 


zone libre 

: Adresse de La fin de le 

zone libre 

33 OLOTXTPTR = 579 ‘ Sauvegarde de TXTPTR 

34 CR = SD 3 Code du Cerrlage Return 

35 BUFADRI = sas 3 Adresse de La Drenlère 
moitié du bloc Lu 

36 BUFADR2 = $AD : Adresse de la seconde 

moitie du bloe lu 

+: Routine de prise de 


32 FRETOP . $6E 


37 CHRGET - sBt 


caractère 

36 TXTPTR = SB4 * Pointe sur le caractère 
à prendre 

39 

40 IN n 80200 + Buffer clavier 

41 

42 PRINTERR = $BEOC + Affichage de l'erreur 

43 DEFSLT - 8BE3C + Siot par défaut 

44 DEFDRV - $BE30 : Orive par défaut 

45 XTAOOR - $8Es0 : Fointe adresse de la 
commande externe 

46 XLEN - $8E52 Longueur du non de la 


commande moins un 
SBES3 3 Numero de Corande 
SBE54 i 1Indiquent les 

paraemætees valables 


47 XCHUN - 
48 PBITS - 


49 VPATHI = SBE6C i Pointe sur le nom de 
volume 

50 BADCALL = SBEBS i Traduit l'erreur pour 
le BI 

Si ENTRY u sBë 00 : Point d'entrée du MLI 

52 SYSERR Es $Br0r ‘ Va & la routine de 
traitement das erreurs 

53 

54 FRMNUM # $DD67 : Range valeur pointée 
par TKTPTR dans FAC 

55 GETADR . $e752 : Transforme FAC en 
entler 2 oct (LINNU#) 

56 LINPTR e S£D24 : Affiche X et À 

57 COUT - $FUED : Affiche la caractére 5e 
trouvant dens À 

56 INVERSR = $re80 + Affiche en inverse 

$9 NORMAL $FE84 : Alficbe en normal 

60 RATS . SEF$S3 { Contient un RTS 

61 

É ZT mms == 

63 * Validité de la CMD 

Cdt Honnomnesrrsssnaenpessassse 

65 

66 START CLD 3 Obligatoire pour ProDOS 

67 LDA B>FIN+S0100 : Convention pour 
CMOLOAD 

68 LOA #2LONG-58100 


69 V_OLDCMD LDA RTS 
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Les commandes s'installent par 
un simple BRUN sur les modules 
exécutables. 


G 


verso de la disquette d'accompagnement (face 


LOA VPATHI ; Pointe vers commande 
pour determiner 91 

STA PTR i c'est la notre 

LOA VPATRHLel 

$TA PTR+1 

LDY #1 

COUMPAR LDA (67R),Y ; C'esr INDEX ? 

CNP COMMAND-1,Yx 

BN& NO_CHD + non, alors retour au 
ProDOS 

INY 

CPY #5+1 

BCC COMPAR 


BCS  BONNECMD 5 C'est INDEX alors on 


peut y aller 


: Indique Que la commande 
n'est paa 4 nous 


N9_CHD SEC 





JMP  (V_OLOCMD+1) 
tmamssmmssss-=sssemmm-sascse- + 
. 
BONNECMD 
DEY 3 Demande à PrpDOS 
d'examiher la commande 
DEY i 1l ne doit pas y svoir 
de paramètres 
STY XLEN 
LDA 60 
STA SYSERR 
STA XCNUM 
LOA #0 ! Pas de paramètres: 500 
en (Pbits} 
STA PBits 
LOA #0 
STA PBITSe! 
VLSUITE LDA SUITE : Indique l'adresse dv 
retour 
LDA V_SUITE+] 
S$TA XITAODR 
LOA V_SUITE+2 
STA XTADDA+1 
CLC ; C'était bien pour nous 
RTS 
SUITE 
cm (0 : $1 Pas d'erreur, 00 
continle 
BNE NO CMD 
Avsmmsmmssssss nm mm 
" Lecture du nonbre de blocs 
mms 
LDA TXTPTR * Sauvegarde de TXTETR 
pour que l'execution 
EDX TATPTR+] : d'un programæ Besic 
puisse se continuer. 
STA OLDTXTP?R 
STX OLDTXTPTA+I 
LDY XLEN é Où 5e trouve la fin du 
mét de commande ? 
INY 4 Sert à lire la suite: 
numéro de bloc, 
INY : puis les paramètres 
éventuels ($ et D} 
TYA : Pour cela, on se sert 
de TXTPTR: 
CLC : On additionne la 
longueur du mt-clé 
AOC VPATHI 4 (INDEX) au début de la 
ligne de commande. 
STA TXTPTR + On a alors le début de 
l'opérande. 
LDA VPATHI+] « C'est ce qu'on rt en 
TXTPTR. 
ADC 60 
STA TXTPTReI 
JSR RO _NBR s On va iire le norbre 
qui est pointé 
STA TOT_BLOC :; Ce sora le blec final 
STx OT_BLOC+] 
Nidiioosisonsonsancmmetenensensanenumss 
» Lecture des Paramètres s'il y en a 
ae prur-er eau en es even sranes monter qe œreppsin et qe monte sre-qupe-nee-pent 





Récapitulation 
‘INDEX’ 


Après avoir Saisi ca code sous 
moniteur, vous le sauvegarderez 
par BSAVE INDEX,A$2000,1$2D5 


Les codes de $2000 à $20FF 


correspondent au programme 
CMDLOAD (Pom's 20) 


2000:AD 00 BF C9 4C FO 05 A9 
2008:87 4C ED FD AD 4D BE FO 
2010:05 A9 15 4C 09 BE AD 
2018:21 69 00 20 98 20 90 
2020:A9 OE 4C 09 BE CD 02 
2028:90 F6 AE 08 BE 8D 08 
2030:8E 07 21 AF 07 BE &8E 
2038:21 AO 00 8C 07 BE 48 
2040:21 85 3C 68 38 E9 04 
2048:74 A9 21 85 49 84 48 AO 
2050:00 B1 48 FO 27 20 8E 
2058:A4 2F CO 02 DO 0F B1l 
2060:C9 21 90 09 CD 02 21 BO 
2068:04 65 3C 91 48 AS 48 
2070:65 2F 85 48 A5 49 69 
2078:85 49 DO D3 AO 00 A9 
2080:84 3C 8S 3D 18 6D 04 
2088:84 42 88 84 3E 85 3F 
2090:08 BE 85 43 C8 4C 2C 
2098:8D FB 20 A5 74 18 69 
20A0:8D FC 20 86 3D CE FC 
20A8:F0 47 AD FC 20 8D FD 
20B0;:AD FD 20 48 4A 4A 4A 
20B8:68 29 07 A8 B9 F3 20 
20C0:58 8F DO El A5 3D DO 
20C8:B9 F3 20 1D 56 BF 9D 
20D0:BF AD FC 20 38 CE FD 
20D8:£D FD 20 CD F8 20 DO DO 
20E0:A5 3D DO 07 18 AE FD 
20E8:E8 8A 60 A9 00 85 3D 
20F0:B9 36 60 80 40 20 10 
20F8:04 02 01 00 00 00 AD 
2100:D8 A9 23 A9 O1 AD 58 
2108:AD 6C BE 85 48 AD 6D 
2110:85 49 A0 O1 B1 48 D9 
2118:22 DO 07 ca CO 06 90 
2120:80 04 38 6C 06 21 88 
2128:8C 52 BE A9 00 BD 0F 
2130:8D 53 BE A9 00 8D 54 
2138:A9 00 8D 55 BE AD 4E 
2140:AD 3E 21 8D 50 BE AD 
2148:21 @8D 51 BE 18 60 C9 
2150:D0 DO AS BB A6 B9 85 
2158:86 7A AC 52 BE C8 C8 
2160:18 6D 6C BE 85 B6 AD 
2168:BE 69 OC 85 89 20 82 
2170:8D DO 22 8E D1 22 20 
2178:22 20 B8 22 FO 28 C9 
2180:D0 F7 20 B8 22 C9 D3 
2188:0B 20 B8 22 29 07 8D 
2190:BE 4C 79 21 C9 C4 FO 
2198:4C 8E 22 20 BB 22 29 
21A0:8D 3D BE 4C 79 21 AS 
21A8:8D CA 22 BD C3 22 AD 
21B0:22 AD AF 21 AE BO 21 








bi 





140 JSR 


142 CH_VRGL JSR 


143 BEQ 


IN_9TB : Refixe le Pointecz au 
début du buffer 
CHR_GET ; Preod caractère jusqu'à 


cœæ Que soit une 
EOL : virQule, car cela 
signifierait una nuréro 


144 CHEMS UE ; de drive et/en de slet 
A lire. 

145 BNE CH_VRGL 

146 

147 JSR CAR GET : Prend le caractère de 
commande 

148 CMP +#f"s" ; C'est le chançement de 
Slot ? 

149 BNE TEST _D : Noo, alors peui-ecre 
cst-ec 1e drive 7 

150 JSR CHAR GET 3 Quel esi le nouveau 
Slot ? 

151 AND 6400000111 

152 STA BEFSLE ; Ankettre chez Pro08S 

153 JMP CH_VRGL 

154 

155 TEST_D CMP #"D” ; C'est le changement de 
prive ? 

156 BEQ NCERRS 

157 JMP ERR_STK 

150 NOERRS JSR CHR_GET + Quel est le nouveau 
drive ? 

159 AND 4##0000001!1 

160 STA DZFDRV 

161 JMP CA _VRGL 

162 EOL 

163 

RCE 

165 * Boucle de lecture des blocs 

166 nn nn nn nn nn nn nn ne 

167 

168 LDA #0 : Commence au bloc 0 

169 STA BE@C DEP+1 

170 STA BL@C DEP 

171 





176 VC_PARM LDA 


277 LoA 
178 LOX 
179 STA 
180 STX 
181 

182 LDA 
183 AND 
184 ASL 
185 ASL 
186 en 
187 BSL 
188 ASL 
189 ASL 
190 ASL 
191 STA 
197 

193 EDX 
154 INX 
195 Crx 
196 BCC 
197 

198 LDA 
199 ERR JHP 
200 


PARM ;: Nécessaire à cause du 
relogement 

VC_PARM+1 : Indique où est la table 
de parsméètres 

VC_RARM+2 

VC_MLI 

VC_MLI+1 

DEFDRV : Codage du nurégo 


d'unité sous la forme 
#400000010 ; DS550000 


BÉFSLT 


PARM+1 


STRENO+1 ; Installe le buffer dans 
la zane libre 


FRETOP+1 

FLX_BUF 

95556 * S'il n'y en a Pas 
aasez, alors on sort 

ERR_EXEF : ‘NO BUFFER AVAIA3LE" 

BUFF+1 # Sinon, enreÿistre la 


page du buffer 





202 JSR RD BLOC 3 Puis va lire le bloc en 
question 

203 BACS ERA ; AU Cas 00 $1 ÿ aurait 
une erreur 

204 

206 * Analyse du bloc 

2QT Er 

206 

209 LSY BUFF : Prépare des pointeurs 
pour fndiquer 

210 LDX SBUFF+1 : l'adresse de 13 
premiére page du buffer, 

211 STY BUFADR1 : et celle de la seconde 
page du buffer. 

212 STX BUFABR1+1 

213 INX 

214 STY BUFACR2 

215 5TX BUFABR2+1 

216 

217 mm 

218 * Teste s{ le bloc peut etre un 
index 

229% 

220 

221 LBY #0 + Se place au début dun 
bloc 

222 JSR VRFZ ‘ Va vérifier s°i2 est 
CoïMPletement nul 

223 BEQ NXTBLKX : 51 oul, alors fa ne 


30 


VRF& 


VRFRTS 


CHKNG2 


CHKNG3 


NXTBYTE 


vi 


vè 


EOI 


GO0D_ONE 


CONT 


BNE 


peut etre vo ‘rdex 
CHKNG2 ;: Sinon, ôn fait une 
aâttre vérification 


(BUFADR1),Y ; La méthcde a éte 
entiérement chançée 

i par rapport à ‘Seneath 
Appie ProLios* 

; Car elle donnait trop 
de bioca non-index 

; Avec celle-cl tova les 
esssfs faits 

* seul dernler #loc du 
cataicg est indique 

: A tort comme étant un 
index. 


(UFADR 2),Y 


VRFRTS 


VRFZ& 


+0 3 Le principe: tester 91 

tous les nuréros 

+ 16 bits différents les 

uns des autres, 

: puisque index ne peut 

contenir 2 fois le 

COMPTEUR ; rene bloc. 

(BUFADR1),Y ; Numéro zéro indique la 
fin de la liste 


TOMPTIEUR 


GO6D_ONE * Done s1 en y est, c'est 
un index 

TEMP : Sinon on scoeke Pour la 
vérification 

(BUFACR2) ,Y 

TEMP+1 
i On cenBare au SURÉrO 
d'epres 

EOI : Si onest 4 la fin du 
biec 

(BYE ADR2) ,* 


TOF_BIOC+1 ; Numëre ne peut etre 
supérieur su nb max 


vi 

NXTBLK ;: Sinon, Has un bloc 
index qu'on teste 

(GUFASR1),Y 

TeT_BI@&C 

NXTBLK 


(BUFACR1),Y ; Si on tombe sur un 
zéro, Ça signifie 

v2 : peut-etre une fin de 
liste. 


: Donc on reçarde 51 ce 
qui suit est nul 


VREZ ; Va verifier 

£0I : Si eu, alors on a fini 
l'index 

NXTBLK ; Sinon ce n'était Das 
un index 

TEMWP ; Ce n'était Des un zéro. 
donc cn vérifie 

NXTBYTE : le bss du ouréro. 


(BUFADR2),Y ; Si pareil en bas, 11 
se Deut Que le 


TEMP+1 3 haut aolt différent... 

NXTBYTE ; Si oui, alors prochain 
octet 

NXTBLK 5 Si nèen, prochain bloc 

COMPTEUR : Tous les cctets étaient 
différenc A cœlui 

CAXNG3 : testé, donc on Prend le 
suivant. 

to : 84 lez octet du bloc 
est un zéro, alors 

NXTSLK i ça ne peut pas etre un 
index 

PS&LOCK 4 Affiche le numéro de 
bloc 

NXTBLK : Passe au Brochaia bloc 





le bloc peut etre index, 
afficher 
Rem = 
BLOC _DEP : Affichage en décimal du 


NXTBLK 


INC 


nuréro de bloc, 
BLOC_DEP+1 ; suivi d'une virgule 

pour tous les sébarer 
LINPTR 


BL@C_CEP i Passe av prochsin bloc 


tout en vériflant 


21B8:C2 22 8E C3 22 AD 39 BE 
21C0:29 02 OA OA OD 3C BE ®8A 
21C8:0A OA OA 8D C6 22 A6 6E 
21D0:E8 E4 70 90 05 a9 56 4C 
21D8:90 22 8E C8 22 20 BE 22 
21E0:BO FS AC C7? 22 AE CB 22 
21E8:684 AB 86 AC E8 84 AD 86 
21FO:AE AO 00 20 FA 21 FO 6D 
21F8:D0 OA B1 AB 11 AD DO 03 
2200:C8 DO F7 60 A9 00 8C D2 
2208:22 AC D2 22 B1 AB FO 3A 
2210:8D D3 22 B1 AD 8D D4 22 
2218:C8 FO 2A B1 AD CD D1 22 
2220:90 09 DO 41 B1 AB CD DO 
2226:22 BO 3A Bl AB DO 08 C8 
2230:20 FA 21 FO 10 DO 2E CD 
2238:D3 22 DO DC B1 AD €D D4 
2240:22 DO D5 FO 20 EE D2 22 
2248:D0 BF CO 00 FO 17 20 S4 
2250:22 4C 65 22 AE €9 22 AD 
2258:CA 22 20 24 ED 20 84 F= 
2260:A3 AC 4C ED FD EE C9 22 
2268:D0 03 EE CA 22 AD CA 22 
2270:CD D1 22 FO 03 4C AE 21 
2278:AD C9 22 CD DO 22 90 F5 
2280:18 60 A0 00 B1 BB C9 30 
2288:90 04 C9 3A 90 16 A9 40 
2290:C9 27 FO OA €9 28 FO 06 
2298:20 8B BE 4C OC 8E 20 80 
22A0:FE 4C 4E 22 20 67 DD 20 
22A8:52 E7 AS 50 A6 51 60 AO 
22B0:00 A2 02 84 B8 86 BS 60 
22B8:20 B1 00 C9 8D 60 20 00 
22C0:BF 80 C5 22 60 03 60 00 
22C8:00 00 00 49 4E 44 45 58 
22D0:00 00 00 00 00 








Récapitulation 
‘BLOC 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez 
par BSAVE BLOC,AS2000,LS2A4 


Les codes de $2000 à $20FF 
correspondent au Programme 
CMOLOAD {Pom's 20). 


2000:AD 00 BF C9 4€ FO 05 A9 
2008:87 4C ED FD AD 4D BE FO 
2010:05 A9 15 4C 09 BE AD O4 
2018:21 69 00 20 98 20 90 05 
2020:A9 OE 4C 09 BE CD 02 21 
2028:90 F6 À° 08 8€ 8D 08 BE 
2030:8E 07 21 AE 07 BE 8E C6 
2038:21 AO 00 BC 87 BE 48 E9 
2040:21 85 3C 68 38 E9 04 85 
2048:74 A9 21 85 49 84 48 AO 
2050:00 B1 48 FO 27 208 

2058:A4 2F CO 02 DO OF B1 48 
2060:C9 21 90 09 CD 02 21 BO 
2068:04 65 3C 91 48 A5 48 38 
2070:65 2F 85 48 AS €9 69 00 
2078:85 49 DO D3 AO 00 A9 21 
2080:84 3C 85 3D 18 6D 04 21 
2088:84 42 88 84 3E 85 3F AD 
2090:08 BE 85 43 C8 4C 2C FE 
2098:8D FB 20 AS 74 18 69 O4 
20A0:8D FC 20 86 3D CE F€ 20 
20A6:F0 47 AD FC 20 8D FD 20 
20BB8:AD FD 20 48 éA éA 4A AA 
20B8:68 29 07 AB B9 F3 29 3D 
20C0:58 BF DO EL A5 3D DO 09 
2CC8:29 F3 20 1D S4 BF 9D 58 
20D0:3F AD FC 20 38 CE FD 20 
20D8:ED FR 20 CD FB 20 DO DO 
20E0:A5 3D DO 07 18 AE FD 20 
20E8:E8 8A 60 A9 00 85 3D FO 





298 BNE 
299 1Nc 
300 Eco LOA 
301 CH? 
302 BEQ 
303 GO_LIT_BL JMP 
304 

305 zool LDA 
306 ce 
307 Bcc 
30e 


£&œ 


i Qu'on ne sort pas des 

limites fixées par 

BLOC_DEP+1 : La commande. De toute 
fagon, 51 on 

BLCC_DEP+-1 ; demsnde A lire plus de 

blocs qu'il n'en 


TÔT, BLOC+I : existe. Une ecceur 3e 
pcoduira. TI} n'est 

4 donc possible de äonner 
qu'on nombre 


ECCI 


VC_PARM : inférieur au nosbre 
max Lure 

BLOC_DEP 

Tor_BLoc 

GOo_LIT_BL 





RTS 
325 
317 
319 
320 RO_NBR 
321 LOY 
322 LOA 
323 ÇCuP 
324 acc 
325 ce 
336 BCC 
327 
328 £AR_STX LOA 
329 ERR_EXIT 
330 CMP 
331 BEC 
332 CHP 
333 8EQ 
334 JSR 
335 
336 10_ERA JRR 
337 Je 
336 
339 NO_ERA JSR 
340 JSR 
341 LOA 
342 LDXx 
343 RTS 
344 
345 *-----"... 
346 * “et 
347 
344 
349 IN_PTR 
350 LDY 
351 LDX 
352 STY 
353 sTx 


10 i FRMNUM doit tomber sur 
un chiffre. 

(TXTÈTR],Y : S'assure que 3'en est 
dn, MAis aana 

tro ! Dâsser Par CHRGET, qui 
modif, TXIPTR. 

ERR_STX : Sl on a un chiffre, 
c'ést bon, car FRANUM 

s': +: s'arcetera $ la fin du 
nombre. 

NO_ERR 4 Simon, on signale ue 


erreur de syntaxe. 


HSYNT_ERR : Slgnales s01-meme, car 
PAWNUM tend 


527 

IQ _ERR 

+526 

10_ERR 

BADCALL : à déconnecter ProDOs 
lorsqu'il qénére une 

7e PRINTERR * Erreur. 

1ANVERSE 

CONT 

FRMNUM : 51 on à bien un nombre, 
on le lit. le mer 

GETADA : dana FAC puis mt en 
entier dans LINNUM 

LINNUM 

ZLINNUM+1 

TXTETA au début de IN 

#<IN i Cocte fois, an se place 
sur ln buffer du 

4>IN : Clavier. Ligne de 
commence ÿ e3e entière 

TXTPTR + Êt stocrée en 


Caractéres ASCII avec le 
TXTPTR] : 


Ceraler bit à ] 





359 

360 CHR GET JSA 
361 CP 
362 RTS 


CR 





367 
368 RD_RLOC JSR 
369 0F3 
370 VC_MLI DA 
37 AIS 
372 

373 PARM OFB 
374 DFB 
375 BUFF HEX 
376 BLOC_DEP HEX 
377 

378 COMMAND ASC 
379 

380 T@T_8LOC HEX 
381 COMPTEUR HEX 
302 TEMP HEX 
363 

364 FIN = 
385 LONG . 
386 


560 
ooce 
0000 


"INDEX" 


FiN-8TART+30100 
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397 


LST 


ON 





Source ‘T.BLOC.CODE' 


Assembleur Big Mac, format TEXT 


œ où 1 æ Li Ni he 





43 


LST OFF 
ORG 52100 

CECELLCOEEEE CE PECEPENENP EPP EEE EEE 

* INDEX: Permæt de localiser tous les + 

p. blocs suseepeibies d'etre des * 

* blocs index. . 

. . 

sossvrvrennnocecessrassaarosescesecensss 

nine 0 4e RE Re ee + 

* Syntaxe: . 

* . 

* INDEX <totsl> (.S<alot>] [,0<drive>] e. 

. . 

* Le préegramuwæ va lire tous las blocs du disque « 

* jusqu'au aombre total qu'on 1ut indique dans . 

* commande. Si le bloc est ausoeptlible d'etre un * 

* pilac index, 11 affiche son numéro: * 

“ * 

mme ___——…———— L] 

mm 

SYNT_ERR = $4û i Code du message ?SYNTAX 
ERROR' 

2TA = $48 1 Pointeur temporaire 

LINNUM = 550 4 Résultat de GETADRA 

STREND - $ép i Adressa du débue de 1a 
zone libre 

FRETOP = $6r i Adressa de la fin de la 
Zone libce 

OLDTXTPER = $79 i Sauvegarde de TXTPTR 

CR = 580 ; Code du Carriage Return 

BUFACRL = sAB : Adrasse de la première 
moitié du bloc lu 

BUFADR2 $AD : Adresse de la seconde 
moitié du bioc lu 

CERGET - 581 : Raucine de prise de 
ceractère 

TXTPIR = $8a ; Pointe eur le caractère 
À prendce 

1% È $0200 + Buffer clavier 

BRINTERR = $BEOC + Affichage de l'srreur 

OEFSLT = SBE3C + Slot par défaut 

BEFORV - $BE3D 3 Drive par défaut 

XTAOTR = $BE50Q i Pointe sur adresse de 
la commande externe 

XLEN - $BE52 i Longueur du nom de la 
commande moina Un 

XCKUM = $BE53 i Numéro de corrasnde 

PBITS = $BE54 * Indiquent les 
Paramètres valables 

VPATHI = $B£6C : Pointa sur le nom de 
voiurs 

BADCALL = $AEGB : fraduit l'erreur pour 
le BI 

ENTRY “ $BF 00 : Point d'entrée du MLI 

SYSEAR = SBF0F : Va à la routine de 
teaitemenc des erreurs 

FRMNUM = $DD67 i: Range valeur Polntée 
Dar IXTPTR dans FAC 

GETADR = $E752 + Transfcrms FAC en 
entiec 2 act (LINNUM} 

LINETR = $£024 : Affiche X ec À 

TOUT = SEDED i Affiche le caractère 5e 
trouvant dans À 

INVERSE = $FE80 + Affiche en inverse 

NORMAL = SFEB4 + Affiche en normal 

RTS = SFFSE + Contient Un RATS 





v_o10CcHD 


C@MPAR 


i ligatoire pour ProDUSs 

9>F1N450109 : Convention pour 
CKDLOAO 

J#UOWG-$010 0 

RTS 

VPATHAl 1 Pointe Vers commande 
pour déterminer sl 

PTR : c'est la notre 

VPATHL+2 

PTK41 

41 

Œ@TR),Y : C'est INDEX 7 

CONMAND-1,Y 

NO_CMD ‘ non, AlOfa retour au 
Pro0os 

25+1 

cemPaR 

BONNSCMD : C'ast INDEX alors on 


peut y aller 


20F0:B9 
20F8:04 
2100:D8 
2108:AD 
2110:85 
2118:22 
2120:22 
2128:D0 
2130:80 
2138:06 
2140:21 
2148:02 
2150:8C 
2158:80 
2160:80 
2168:21 
2170:51 
2178:85 
2180:C8 
2188:AD 
2190:00 
2198:3A 
21A0:2E 
21A8:A5 
2180:A1 
2188:86 
21C0:c9 
21C8:D3 
2100:8D 
21D8:D0 
21E0:3D 
21E8: 3D 
21FO0;:BE 
21F6:A5 
2200:AD 
?2208:22 
?210:6E 
?2168:90 
2220:B1 
2228:FD 
*230:8E 
?238:9E 
2240:AC 
2248:A2 
2250:A8 
2258:FD 
2260:20 
2268:7F 
2270:890 
2278:EC 
2280:08 
2288:60 
2290:60 
2298:42 
22A0:00 


80 
00 
A9 
85 
00 
BD 
81 
c8 
A3 
DO 
AE 
8D 
A9 
8D 
AD 
BE 
60 
TA 
60 
69 
(er 
A9 
67 
AO 
00 
8E 
F9 
20 
AC 
13 
BD 
02 
OA 
7A 
AD 
22 
9F 
56 
80 
22 
BE 
AB 
A4 
4A 
FD 
08 
A0 
B0 
FD 
FD 
C3 
00 
42 
43 
00 





À compter de ce 
numéro, les 


disquettes 


Posn's sont 
formatées.…. 


DOS35 
SOU0TI 








82 143 BEQ EOL : virgule, car cela 


83 NO CMD SEC : Indique que la commande signifierait un numéro 
n'est pas à nous 144 CMP #"," ;: de drive et/ou de slot 
84 JMP  (V_OLDCMD+1) à lire. 
85 145 BNE CH_VRGL 
BG 2 — 146 
CARS ProDOS étudie la ligne 147 JSR CHR GET : Prend le caractère de 
BONE es enee commande 
89 148 CMP #"S" ;: C'est le changement de 
90 BONNECMD Slot 2 
91 DEY : Demande à ProDOS 149 BNE TEST_D : Non, alors peut-etre 
d'examiner la commande est-ce le drive ? 
92 DEY ; Il ne doit pas ÿ avoir 150 JSR CHR GET ; Quel est le nouveau 
de paramètres Slot ? 
93 STY  XLEN 151 AND ##00000111 
94 IDA #0 152 STA DEFSLT ;: À mettre chez ProDOS 
95 STA SYSERR 153 JMP CH_VRGL 
96 STA XCNUM 154 
97 1DA #0 : Pas de paramètres: $00 155 TEST D CMP #"D» : C'est le changement de 
en (Pbits) Drive ? 
98 STA PBITS 156 BEQ NOERRS 
99 LDA #0 L'5F JMP ERR_STX 
100 STA PBITS+1 158 N@6ERRS JSR CHR_GET ; Quel est le nouveau 
101 V SUITE LDA SUITE : Indique l'adresse du drive ? 
retour 159 AND ##00000011 
102 IDA V_SUITE+1 160 STA DEFDRV 
103 STA  XTADDR 161 JMP CH_VRGL 
104 IDA V_SUITE+2 162 EOL 
105 STA XTADDR4+1 163 
106 CLC 3; C'était bien pour nous 264 = 
197 RTS 165 * Boucie de lecture des blocs 
108 SUITE 166 fm 
109 CMP #0 : Si pas d'erreur, on 167 
continve 168 LDA #0 : Commence au bloc 0 
110 BNE NO CMD 169 STA BLOC DEP+1 
111 170 STA BLOC_DEP 
2192 An mn mm men 171 
113 * Lecture du nombre de blocs 172 A on on oo 
ÉTÉ PR SE 173 * Lecture du bloc indiqué 
115 SRE PTE Pl LEUR TER RE 
116 IDA TXTPTR ; Sauvegarde de TXTPTR 145 
pour que l'execution 176 VC _PARM LDA PARM : Necéssaire à cause du 
117 IDX TXTPTR4«1 ; d'un programme Basic reloSement 
puisse se continuer. 177 LDA VC_PARM+1 ; Indique où est la table 
118 STA OLDTXTPTR de Dparamétres 
119 STX OLDTXTPTR+I 178 LDX VC_PARM+2 
120 179 STA VC_MLI 
121 LDY XLEN ; Où se trouve la fin du 180 STX VC_MLI+1 
mot de commande ? 181 
16222) INY : Cela sert à lire la 182 LDA DEFDRV ; Codage du numéro 
‘0h suite: num de bloc, d'unité sous la forme 
= 123 INY ; puis les paramètres 183 AND ##%00000010 ; DSSS0000 
éventvels (S et D) 184 ASL 
124 TYA : Pour cela, on se sert 185 ASL 
de TXTPTR: 186 ORA DEFSLT 
125 CLC ; On additionne la 187 ASL 
longueur du mot-clé 188 ASL 
126 ADC VPATHI ;: (INDEX) au début de la 189 ASL 
= ligne de commande. 190 ASL 
127 STA TXTPTR ; On à alors le début de 191 STA PARMs] 
l'opérande. 192 
128 LDA VPATHI1+1 : C'est ce qu'on met en 193 LDX STREND+1 : Installe le buffer dans 
TXTPTR. la zone libre 
129 ADC #0 194 INX 
130 STA TXTPTR+1 195 CPX FRETOP+1 
131 196 BCC FIXx_BUF 
132 JSR RD_NBR ; On va lire le nombre 197 
qui est pointé 194 LDA #$56 : S'il n'y en a pas 
133 STA TOT_ BLOC ; Ce sera le bloc final assez, alors on sort 
es 134 STX TOT_BLOC+I 199 ERR JMP ERREXIT ; ‘NO BUFFER AVAIABLE! 
135 200 
236 4 201 FIX BUF STX BUFF+1 : Sinon, enregistre la 
132754 Lecture des paramètres s'il y en a page du buffer 
TRE ee Messe 202 JSR RD BLOC ; Puis va lire le bloc en 
139 = question 
140 JSR IN_PTR ; Refixe le pointeur au 203 BCS ERR ; Au cas où il y aurait 
début du buffer une erreur 
141 204 
142 CH VRGL JSR CHR GET ‘Hbrendicaracterel jusqu, A ADO R Eee SERRE ee 
ce que soit une 206 * Analyse du bloc 
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SLR Lt) à: 


| 
| 
j 





207 2-—---- 259 BNE NXTBLK : Sinon, ce n'était pas 
208 un index 
209 LDY BUFF : Prépare des pointeurs 260 
pour indiquer 261 V2 CMP TEMP : Ce n'était pas un zéro, 
210 LDX BUFF+1 ; l'adresse de la donc on vérifie 
première page du buffer, 262 BNE NXTBYTE : le bas du numéro. 
211 STY BUFADRI : et celle de la seconde 263 
page du buffer. 264 LDA  (BUFADR2),Y ; Si pareil en bas, il 
212 STX BUFADRI+1 se peut que le 
213 INX 265 CMP TEMP+1 : haut soit différent... 
214 STY  BUFADR2 266 BNE NXTBYTE : Si oui, alors prochain 
2h STX BUFADR2+1 octet 
216 267 BEQ NXTBLK ; Si non, prochain bloc 
LG SR 268 EOI 
2:e * Teste si le bloc peut etre un 269 INC COMPTEUR ; Tous les octets étaient 
index différent à celui 
229 2m mm —— 270 BNE CHKNG3 ; testé, donc on prend le 
220 suivant. 
221 LDY #0 : Se place au début du 271 
bloc 272 GOOD_ONE 
222 JSR VREZ ; Va vérifier s'il est 273 CPY #0 ; Si ler octet du bloc 
completement nul est un zéro, alors 
223 BEQ NXTBLK ; Si oui, alors ça ne 274 BEQ NXTBLK ; ça ne peut pas etre un 
peut etre un index index 
224 BNE CHKNG2 ; Sinon, on fait une 275 
autre vérification 276 CONT 
225 enr JSR PBLOCK : Affiche le numéro de 
226 VRFÈ IDA (BUFADR1),Y ; La méthode a été bloc 
entiérement changée 278 JMP  NXTBLK ; Passe au prochain bloc 
227 ORA  (BUFADR2),YŸ ; par rapport à ‘Beneath 279 
Apple ProDOs: OO 
228 BNE VRFRTS : Car elle donnait trop 281 * si le bloc peut etre index, 
de blocs non-index afficher 
229 INY ; Avec celle-ci et tous DDR = -—— 
les essais faits 283 
230 BNE VRFZ : seul dernier bloc du 284 PBLOCK 
catalog est indiqué 285 LDX BLOC DEP : Affichage en décimal du 
231 VREFRTS RTS ;: à tort comme étant un numéro de bloc, 
index. 286 LDA BLOC _DEP+1 ; suivi d'une virgule 
232 pour tous les séparer 
233 CHKNG2 287 JSR LINPTR 
234 LDY #0 : Le principe: tester si 288 JSR NORMAL 
tous les numéros 288 LDA #", 
235 STY  COMPTEUR ; 16 bits différents les 290 JMP COUT 
uns des autres, 291 
236 CHKNG3 ; puisque index re peut 292 
contenir 2 fois le 293 * Passage au prochain bloc 
“ae 0 LDY COMPTEUR ; meme bloc. me 
238 LDA  (BUFADR1),Y ; Numéro zéro indique la 295 
fin de la liste 296 NXTBLK 
239 BEQ GOOD_ONE ;: Donc si on ÿ est, c'est AE INC BLOC DEP ; Passe au prochain bloc 
un index tout en vérifiant 
240 STA TEMP ; Sinon on stocke pour la 298 BNE EOD ;: qu'on ne sort pas des 
vérification limites fixées par 
241 LDA  (BUFADR2),Y 299 INC BLOC DEP+1 ; la commande. De toute 
242 STA TEMP+1 façon, si on 
243 300 EOD IDA BLOC DEP+1 ; demande à lire plus de 
244 NXTBYTE INY ; On compare au numéro me blocs qu'il n'en 
d'après 301 CMP TOT_BLOC+1 ; existe, une erreur se 
245 BEQ EOI ; Si on est à la fin du produira. Il n'est 
bloc 302 BEQ EOD1 : donc possible de donner 
246 LDA  (BUFADR2),Y qu'on nombre 
247 CMP TOT_BLOC+1 ; Numéro ne peut etre 303 GO_ LIT _BL JMP VC_PARM : inférieur au nombre 
supérieur au nbr max maximum 
248 BCC vi 304 
249 BNE NXTBLK : Sinon, pas un bloc 305 EOD1 IDA BLOC DEP 
index qu'on teste 306 CMP TOT_BIQC 
250 LOA  (BUFADR1}),Y 307 BCC GO_LIT_BL 
251 CMP TOT_ BLOC 308 
252 BCS NXTBLK 309 Aves 
253 V1 LDA  (BUFADR1),YŸ ; Si on tombe sur un 310 * Sortie de commande 
zéro, ça signifie 311 #------ mm 
254 BNE V2 ; peut-etre une fin de 312 
liste. 313 CLC 
255 314 RTS 
256 INY ; Donc on regarde si ce aus 
qui suit est nul 316 X--— 
2957 JSR VRF2Z ; Va vérifier souris | Lecture du nombre pointé par TXTPTR 
258 BEQ EOI ;: Si oui, alors on a fini 3189 *------ mm 
l'index 319 
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320 
321 


322 


323 


324 


325 


326 


327 
328 


329 
330 
331 
332 
333 
334 


335 
336 
337 
338 
339 


3490 


341 
342 
343 
344 
345 
346 
347 
348 
349 
350 


351 


352 


353 
354 
355 
356 
30 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
NL 
372 
373 
374 
375 
376 
CHAT 
378 
379 
380 
381 
382 
383 
384 
385 
386 


RD_NBR 


ERR STX 


ERR_EXIT 


10 ERR 


NO _ERR 


LDA 


#0 ; FRMNUM doit tomber sur 
un chiffre. 

{TXTPTR},Y ; S'assure bien que s'en 
est un, mais sans 


r'0 : passer par CHRGET, qui 
modif. TXTPTR. 

ERR_STX : Si on a un chiffre, 
c'est bon, car FRMNUM 

| Le ; s'arretera à la fin du 
nombre. 

NO_ERR : Sinon, on signale une 


erreur de syntaxe. 


#SYNT_ERR ; Signaler soi-meme, car 
FRMNUM tend 


#527 

10_ERR 

#$528 

10_ERR 

BADCALL : à déconnecter ProDOS 
lorsqu'il génére une 

JMP PRINTERR ; Erreur. 

INVERSE 

CONT 

FRMNUM ; Si on a bien un nombre, 
on Le Lrt, le met 

GETADR ; dans FAC puis le met 
entier dans LINNUM 

LINNUM 

LINNUM+1 

Ro om me cm mme me me ee ee ee me me me ee ee 
TXTPTR au début de IN 
a —  —  — — 

#<IN : Cette fois, on se Place 
sur le buffer du 

m>IN : Clavier. La ligne de 
commande est entière 

TXTPTR : Et stockée en 
caractères ASCII avec le 

TXTPTR+1 ; Dernier bit à 1 


PARM 


BUFF 
BLOC_ DEP 


COMMAND 


TOT_BLOC 
COMPTEUR 


JSR CHRGET 
CMP #CR 
RTS 
TE NT PE ne 
Divers 
D ES RS = ES Ps +28 ME PR ES 2 œuf 
JSR ENTRY 
DFB $80 
DA  PARM 
RTS 
DFBL 3 
DFB $60 
HEX 0000 
HEX 0000 
ASC ‘INDEX 
HEX 0000 
HEX O0 
HEX 0000 


TEMP 


FIN 
LONG 


* 
FIN-START+$0100 


432 


433 
434 
435 


436 
437 
438 
439 
4 40 
441 
442 


443 
444 


445 


RRRRRRRRARÉRARRRRRRRARERRAREARERRERARXEX 


* BLOC: Permet de lire ou écrire un * 
block de disquette. * 


* 


RÉRRRRRRRRRRRRRRRRRRRRARRRRRRRRRRRRRRRREREX 


LST ON 

LST OFF 

ORG $2100 
* 
* 
# Syntaxe: 
* RBLOC <numéro> 
* WBLOC <numéro> 
* 
* Labeïs 
SYNT_ERR = $40 
PTR = $4a 
LINNUM = $50 
NO BUFF = $56 
STREND = $6D 
FRETOP - $s6eF 
OIDTXTPTR = $79 
READ BLOCK = $80 
WRITE BLOCK = $81 
CR = $8D 
BUFADR = $AB 
CERGET = $B1 
TXTPTR = $B8 
IN - $0200 
MLI F $BF00 
PRINTERR = $BEOC 
XTADDR = $BE50 
XLEN = $BES2 
XCNUM = $BE53 
PBITS = $BE54 
DEFSLT = $BE3C 
DEFDRV = $BE3D 
VPATHI = $BE6C 
BADCALL = $BE8B 
SYSERR = $BFOF 
FRMNUM - $DD67 
GETADR # $E752 
PRBL2 - $F94A 
PRBYTE = $EDDA 
CROUT = $SED8E 
PRNTXY3 - $F 99 
COUT _ $FDED 


[,D<drive»>] 
(;,D<drive>) 


[, S<slot>] 
[, S<slot>) 


; Code de 'SYNTAX ERROR' 
; Pointeur temporaire 

; FAC devenu entier dans 
deux octets 

; Code de "NO BUFFER 
AVAILABLE ‘ 

;: Page où commence la 
zone libre 

; Page où se termine la 
zone libre 

: Sauvegarde de TXTPTR 

; Code de l'instruction 
MLI 

: Code de l'instruction 
MLI < 
: Code de Retour à la 
ligne 

; Pointe sur le début du 
buffer 

: Routine de prise de 
caractère 

* Pointeur utilisé par 
FRMNUM 


; Buffer clavier 


Point d'entrée du MLI 
Affiche l'erreur, met 
dans À son code 

; Adresse de la routine 
externe 

; Longueur du nom de la 
commande moins un 

; Numéro de commande ($00 
= externe) 

; Bits autorisant 
l'utilisation 
d'opérandes 

; Slot par défaut 

: Drive par défaut 

: Adresse de la ligne de 
commande 

: Code d'erreur en numéro 
d'erreur BI 

; Numéro d'erreur systeme 


‘ 
i 


; Evalue 1a formule 
pointèe par TXTPTR 

; FAC -> LINNUM 

: Affiche X espaces 

: Affiche l'accumulateur 


: Retour à la ligne 

: Affiche X et YŸ en hexa, 
suivis de "-" 

; Affiche le caractère 
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contenu dans À 


446 RTS = $FFS8 : Contient un RTS 

447 

GAB Ke 

449 * Validité de la CMD 

CÉ 

451 

452 START CLD : Obligatoire pour ProDOS 

453 LDA #>FIN+$0100 ; Convention pour 
CMDLO AD 

454 IDA #>LONG-$0100 

455 V OLDCMD LDA RTS 

456 LDA VPATHI ; Pointe vers commande 
pour déterminer si 

457 STA PTR ; c'est la notre 

458 LDA VPATHI+1 

459 STA PTR+] 

460 

461 LDY #0 : Cela indique longueur 
de la ligne tapée 

462 LDA (PTR),Y 

463 STA CMD_LEN 

464 

463 LDX #0 : Cela indique nombre de 
commande possibles 

466 IDA COMMAND,X ; que BLOC peut 

‘ comprendre et traiter. 

467 STA NBR_CMD : (en fait: 2) 

468 

469 INX 

470 INY 

471 COMPAR  LDA (PTR),Y ; C'est RBLOC ou WBLOC ? 

472 CMP COMMAND,X 

473 BNE NO_CMD ; non, alors retour au 
ProDOS 

474 INX ; Oui, prochain caractère 
de chacune des 

475 INY ; commande: tapée et 
possible. 

476 CPY #5+1 : Commande ne possède que 
5 caractères 

477 BCC COMPAR ; Continue la boucle de 
comparaison 

478 BCS BONNECMD : C'est la bonne 
commande... 

479 

480 NO CMD 

481 DEC NBR CMD ; Y-a-t-il une autre 
commande possible ? 

482 BEQ NO CMDI1 ; Si Z=l alors non, on 
sort. 

483 EDX #6 ; Sinon, oui, alors on 
vise l'autre, 

484 EDY #i ;: et on redémarre sur la 
commande tapée 

485 BNE COMPAR ; Puis on les compare 

488 

487 NO CMDI 

488 SEC : Indique que la commande 
n'est pas à nous 

489 JMP  (V_OLDCMD+1) 

490 

491 A = 

492 * Détermine si on écrit ou si on lit 

493 2-2 RE ————— 

494 

495 BONNECMD 

496 LDA #READ _BLOCK ; On décide 
arbitrairement de lire 

497 LDX NBR_CMD ;: Quelle commande a-t-on 
lu ? 

488 DEX ; Là lère ou la 2nde ? 

499 BNE MET_CM : 2-0 signifie la lère, 
donc RBLOC 

500 IDA #WRITE_BLOCK ; Sinon, c'est WBLOCK 

501 MET_CMD STA GOTO MLI+3 ; On stocke Ça dans la 
table des paramètres 

502 

SÔ03 temmmmmmmmmnsammmmmmmmmmemmmesemmms=— 











Æ Va analyser la commande 
me me me ee ee me me me me me meme me ce meme cc ce ce me ue de ce ce ce ce 
DEY ; On passe par 
l'analyseur de ProDOS, 
Car 
DEY : L'autre méthode ne 
fonctionne pas. 
STY XLEN ;: Comme on analyse les 
paramètres, ce 
LDA #0 : n'était pas utile de le 
faire. 
STA SYSERR 
STA XCNUM 
STA PBITS 
LDA #0 
STA PBITS+] 
V_SUITE LDA SUITE 
IDA V_SUITE+I 
STA XTADDR 
IDA V_SUITE+2 
STA XTADDR+1 
CLC 
RTS 
mm mem mm mm mm mem mme = mm m mm mm mm em me = 
LS Lecture du numéro de bloc 
Em mme ee ee me meme me me ee em ee me me mm me 
SUITE 
LDA TXTPTR : Sauvegarde de TXTETR 
pour que l'execution 
LDX TXTPTR+I : d'un programme Basic 
puisse se continuer. 
STA OLDTXTPTR 
STX OLDTXTPTR+I 
LDY  XLEN ; Où se trouve la fin du 
mot de commande 7? 
INY : Cela sert à lire la 
suite: nu de bloc, 
INY ; puis les paramètres 
éventuels (S et D} 
TYA ; Pour cela, on se sert 
de TXTPTR: 
CLC : On additionne la 
longueur du mot-clé 
ADC VPATHI : (RBLOC ou WBLOC) au 
début de la ligne de 
STA TXTPTR : Commande. On a alors 
début opérande. 
LDA VPATHI+1 ; C'est ce au'on met en 
TXTPETR. 
ADC #0 
STA TXTPTR+I 
1DY 60 : FRMNUM doit tomber sur 
un chiffre. 
LDA (TXTEPTR),Y ; s'assure que s'en est 
un, mais sans 
CMP #!'0 ; passer par CHRGET, qui 
modif TXTPTR. 
BCC ERR_STX ; Si on a un chiffre, | 
c'est bon, car FRMNUM | 
CMP #': : s'arretera à la fin du 
nombre. 
BCC NO ERR ; Sinon, on signale une 
erreur de syntaxe. 
ERR STX LDA #SYNT ERR ; 11 faut la signaler, 
car FRMNUM tend 
BEQ NO ERR ; à déconnecter ProDOS 
lorsqu'il génére une 
JMP ERR _EXIT : Erreur. 
NO ERR JSR FRMNUM ; Si on a bien un nombre, 
ù on le lit, le met 
JSR GETADR ;: dans FAC puis le met 
entier dans LINNUM 
EDA LINNUM : LINNUM est numéro du 








Li 


14:21:28 














559 


360 


561 
562 
563 
564 
565 
566 
567 


568 
569 
570 
Sy 
572 
573 
574 
575 


576 
591 


602 


bloc sur leque) 


STA BUFF+2 ; On va maintenant 
travailler. 
LDX LINNUMï] ; Donc on le met dans 
table de paramètres 
STX BUFF+3 
À mm 
* Lecture des paramètres s'il y en a 
Von mm RSS emma nm 
LDY #<IN : Cette fois, en se place 
sur le buffer du 
LDX #>IN ; Clavier. Ligne de 
comrande y est entière 
STY TXTPTR ; Et stockée en 
caractères ASCII avec le 
STX TXTPTRrIl ; Dernier bit à 1 
JSR CROUT ; Revient à la ligne 
CH_VRGL JSR CHR GET ; Scanne toute ligne à la 
recherche d'une 
CMP #"," ; Virgule, pour voir s'il 
ÿ a un paramètre. 
BNE CH_VRGL 
JSR CHR GET : Prend le caractère de 
commande 
CMP _f"sSe : C'est le changement de 
Siot ? 
BNE TEST _D ; Non, alors peut-etre 
est-ce le drive ? 
JSR CHR GET ; Quel est le nouveau 
SIOE 2 
AND #%00000111 ; On le transforme en 
chiffre hexa 
STA DEFSLT : À mettre chez ProDOS 
JMP CH_VRGL 
TEST _D CMP" Du ; C'est le changement de 
Drive ? 
BNE ERR STX 
JSR CHR GET ; Quel est le nouveau 
drive ? 
AND #%00000011 ; Transformé en chiffre 
hexa 
STA DEFDRV 
JMP CH_VRGL 
EOL 
PLA : Pour effacer le RTS de 
CHR_GET 
PLA 
Ds DD D a ou 2 men en 2 en mt eee un nee © me en 2 = Se Des mue ne se ee us Sales nu 9 
* Modification du numéro d'unité 
ER CR RP 
LDA DEFDRV ; On prend le numéro de 
drive 
AND #%00000010 ; Dont on ne garde que le 
2ême octet 
ASL ; Que l'on décale 2 fois 
à gauche 
ASL ; Pour obtenir ceci: 
0000D000 
ORA DEFSLT ;: Puis on ÿ met aussi les 
bits du slot 
ASL : On à alors ceci: 
0000DSSS 
ASL ; Puis on décale le tout 
4 fois à droite 
ASL ; Pour avoir ceci: 
DSSS0000 
ASL 
STA RWBLP+] ; C'est le numéro d'unité 
LDA OIDTXTPTR }; Et on récupère le 
TXTPTR du programme 
LDX OLDTXTPTR+] ; Pour que celui-ci 


668 


670 
671 
672 
673 
674 


675 
676 
677 


puisse reprendre son 


STA TXTPTR ; Execution normalement. 
STX TXTPTR+I 
K—————mmmmmmmmme——————————mmmm—————— 
* Lance les opérations 
ee 
PARM_AD 
LDA  R'BLP ;: Ceci est nécéssaire 
étant donné que la 
LDA PARM AD+1 ; Routine est relogée. 
LDX PARM AD+2 
STA PARM_P 
STX PARM P+1 
RS 
# Cherche un buffer valable 
nn —————— mm mm mm mm 
LDX  STREND+1 : On va se placer dans 
espace libre, entre 
INX ;: Variables dimensionnées 
et chaines de 
STX BUFF+1 ;: Caractères. 
INX 
CPX FRETOP+1 
BCC RW _BLOC 
LDA  #NO BUFF 3: S'il n'y a pas deux 
pages minimum de 
JMP ERR EXIT ; Disponibles, alors ‘NO 
BUFFER AVAILABLE" 
em mm — mm mme 
) CHRGET amélioré 
PR TE 
CHR_GET JSR CHRGET ;: Prend le carctére 
suivant, 
CMP #CR ; Si Retour Chariot la 
ligne est finie 
BEQ EOL ; Oui, alors End Of Line 
JMP COUT ; Non, alors on affiche, 
puis on retourne 
D us ns © sum us es 
* Va lire ou écrire le disque 
RW_BLOC 
JSR GOTO MLI ; Demande à executer la 
commande tapée 
BCC EXIT ; Si C=l, erreur, sinon 
ça va 
ERK EXIT 
JSR BADCALL ; On prépare le code 
d'erreur 
JMP  PRINTERR # Püuñs on "lat fiche. 


* Affichage de controle 


JSR 


AFF_CTRL LDX 


LDY 
JSR 
LDX 


CROUT 


BUFE 


BUFAUR 
BUFF +1 
BUFADR+1 


BUF ADR 


BUFADR-+1 
PRNTXY3 
#1 


(176 octets) 


; Saute à la ligre après 
rappelé le bloc 


; Transfère l'adresse du 
buffer au pointeur 


;: Affiche adresse du 
début de la ligne qui 
# sUit- 


; Puis fait un espace 
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678 
679 
680 


681 


682 
683 


684 
685 
686 


687 
688 
689 


690 
691 
692 


693 


694 


695 


696 


697 
698 
699 
700 


701 
702 
703 
704 
705 
706 


707 
708 


709 
710 


JSR PRBE2 pour un control 


711 BCC AFF CTRL 
LDY #0 ; On se place au début de 712 
la ligne LAN Rare rer Mere ete Enr e es pes ee ne 
AFF_CODE IDA (BUFADR},Y ; Puis on lit les octets 718 Sortie de la commande 
un par un en ms en 
JSR PRBYTE 716 
LBA #1" !_; Met un espace entre FA CLC ; Il n'y a pas eu de 
chaque code problème 
JSR COUT 718 RTS 
INY : Passe au prochain octer 719 
CPY #8 ; On en fait 8 par ligne DORE 
pour ne pas etre 721 * Divers 
BNE AFF CODE ; désorienté. 122 Net nr ent steel Merde eee re pret pre 
723 
LDX #1 : Met 1 esp entre codes 724 BRK 
et caractères 725 GOTO_MLI 
JSR PRBLZ 726 JSR MLI : Puis appel à celle-ci 
via le MLI 
LDY #0 +: Revient en début de ver DFB $80 : Code de la commande 
ligne pour afficher 728 PARM P DA RWBLP : Adresse de la table des 
AFF_CAR LDA (BUFADR},Y ; tous les caractères paramètres. 
correspondants. 729 RTS 
AND #%#01111111 ; On filtre afin de pas 730 
avoir de caractères 731 COMMAND DFB 02 ;: Il ÿ a deux commandes 
CMP #$20 ; géne affichage possibles 
parcequ'interprétés par 732 ASC ‘'RBEOC' ; Liste des commandes 
BCS NORM : la carte 80 colonnes disponibles 
(entre autre) 733 ASC  ‘'WBLOC' 
IDA #'. 734 
NORM ORA ##10000000 735 RWBLP DEB 503 i Il y à trois paramètres 
JSR COUT 736 DFB $60 : Numéro d'unité ($E0 
INY ; Prochain caractère de pour S6,D2} 
F la série 737 BUFE DA  $1000 ; Adresse du buffer 
CEST F ON En QRSRE, 738 DA $0000 ; Numéro du bloc 
BNÉ AFF CAR 739 
: ; 740 CMD LEN HEX O0 : Longueur de la ligne de 
JSR CROUT : Passe àä la ligne =: AS rrande 
; 741 NBR CMD HEX O0 ; Compteur pour savoir 
EDA BUFADR ; Puis change le pointeur ” quelle commande 
pour avoir une 742 
CLC ; nouvelle série de 8 743 FIN * : 
RE 744 LONG =  FIN-START+$01 00 
ADC #8 745 
STA BUFADR 746 LST ON 
CMP #5B0 ;: 176 octets suffisent 


Éditeur Plein Écran EPE 5 1 


Apple lle, /le+, /lc, Le Pacha 
DOS 3.3 & ProDOS 


Listez vos programmes Basic en avant et en arrière. 
Modifiez, insérez, effacez des caractères en plein écran 


sans relire les lignes. 
Recherchez toute chaîne de caractères. 
Choisissez vous-même les codes de contrôle d’'EPE. 


Modifiez E.P.E. : le fichier source est sur la disquette. 


200,00 F TTC franco (bon de commande page 74). 
Échange contre version 2.2 ou 5.0 : 80,00 F 
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CL. & BBDO. 


On trouve plus facilement 
avec 10 ans 


Certaines évolutions sont aussi 
importantes que des révolutions. 


Le plus difficile quand on débute, 
c'est de débuter. Car toutes les 
propositions d'emploi demandent une 
certaine expérience, Chercher un 
emploi est donc un problème 
insoluble. Pas pour l'Apple IIGs, il 
débute avec 10 ans d'expérience. 

Comment? C'est très simple, 

il a une architecture double : un 
nouvel ordinateur puissant traitant 
le graphique et le son, entoure 

un Apple If classique et miniaturisé. 
Il profite ainsi de 10 ans de 
développement de logiciels et 
d'expérience. Un grand progrès réalisé 
en partie grâce au microprocesseur 
65C816, un 16 bits descendant du 
65C02 de l'Apple IL. L'Apple Ilcs fonc- 
tionne à deux vitesses : 2,8 MHz en 
mode natif; en mode émulation 
(c’est-à-dire lorsque vous utilisez un 


programme de votre ancien Apple Il) 
vous avez le choix entre 1 MHz et 
2,8 MHz. 


Débuter connu, c'est 16.000 propositions 
d'emploi. 


Avec l'IWM (integrated Woz 
Machine*) l'Apple 1I6s peut recevoir 
indifféremment des lecteurs de 
disquettes 3,5 pouces 800 Ko ou des 
lecteurs 5,25 pouces 140 Ko, ou les 
faire cohabiter, ce qui contribue à vous 
faire profiter de la plus grande 
bibliothèque de logiciels du monde. Le 
nombre de 16.000 logiciels étant estimatif 
car la seule chose qu’un Apple HGs soit 
incapable de calculer, c’est le nombre 
d'emplois qu'il est capable de tenir. 

Avec le nouveau système 
d'exploitation ProDOS, l'Apple IIcs 
permet la hiérarchisation des fichiers 
et des catalogues à la n‘anière de 


* Ex hommage à Steve Wozniak, co fondaseur de la Socréte 
Apple etcréateur d'e l'Apple il 

















& Fichier Edition! 
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un emploi quand on débute 


‘expérience. 





Lils Couleur Font finime 


Macintosh, et la connexion de 
nouveaux périphériques. 


ets, cela veut dire Graphique et son. 


L'imagination débridée des 
développeurs suffira-t-eile pour utiliser 
les 10% nuances de couleurs 
disponibles ? C’est probable. Ce qui est 
certain, c'est qu'une résolution de 640 
points sur 200 lignes pour 4 couleurs, 
320 points sur 200 lignes pour 16 
couleurs va donner beaucoup de relief 
à certaines démonstrations. Si vous 
n’en croyez pas VOS yeux, VOUS n'en 
croirez pas vos oreilles non plus. Le 


* coprocesseur “son” choisi par 


Apple a déjà une brillante carrière 
derrière lui puisqu'il est employé par 
les plus grands synthétiseurs du 
marché. C’est J'ENSONIQ, capable de 
générer 16 voix, 


Apple présente l'Apple IIcs. 


et il ne lui manque même pas la parole. 


Les relations nécessaires pour réussir: 


En 10 années, l'Apple II a eu tout 
le loisir de se faire d'excellentes relations 
detravail imprimante, modem, disque 
dur, que l'Apple IIGS continuera à 
entretenir et développer; celui-ci peut 
désormais être connecté au réseau 
AppleTalk et gérer la Laser Writer 
réservée jusqu'à présent à Macintosh. 1] 
peut aussi recevoir le disque dur SCSI. 

L'Applellcs possède 7 connecteurs 
d'extension permettant, à l’aide d’une 
multitude de cartes d'interfaces, de le 


relier à tous Les types d'unités périphériques. 


Acheter un Apple, c’est entrer dans 
le Club Apple pour échanger des inforina- 
tions, accéder au support technique par 
téléphone 7 jours sur 7, ou aux services 
télématiques du Club. 
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PageMaker : 
essai ‘routier’ 


PageMaker, réalisé par Aldus et 
distribué par Ise Cegos, est le 
logiciel qui fit le succès de l'édi- 
tion électronique sur Macintosh. 
I] se présente sous la fonne de 
deux disquettes (Démarrage et 
Programme) accompagnées d'une 
documentation et d'une disquette 
de démonstration ‘visite guidée”. 


Il peut être utilisé sur un 
Macintosh 512K0o mais le travail 
sera plus aisé avec un Mac Plus. 
On peut l'installer sans difficulté 
sur un disque dur, l'original 
devant être introduit momenta- 
nément à la mise en route. 


Démarrer avec 
PageMaker 


Au démarrage, le menu Fichier 
permet soit d'ouvrir une publi- 
cation (nom donné au documents 
créés par PageMaker) existante, 
que l'on retrouve dans l'état où 
on l'avait laissée, soit d'ouvrir 
une nouvelle publication. Dans ce 
cas, une fenêtre de dialogue (For- 
mat d'impression) apparaît. Elle 
permet de déterminer le format de 
papier utilisé, l'orientation (pay- 
sage, portrait), l'option recto/ 
verso, le nombre de pages ainsi 
que les marges. 


Les format et orientation sont 
fixés définitivement. Les marges 
peuvent être modifiées ultérieure- 
ment mais cela oblige générale- 
ment à revoir toute la mise en 
page. En revanche, ilest facile de 
supprimer ou d'ajouter des 
pages, sachant qu'une publication 
ne peut pas dépasser seize pages. 
Sur un 512Ko il sera même 
préférable, en raison de la capa- 
cité des disquettes, de ne pas aller 
au-delà de huit pages. Pour un 
document plus long, il suffira 


Philippe Mathieu 


d'enchaîner plusieurs publica- 
tions, la pagination pouvant aller 
jusqu'à 990, 


L'éditeur de texte 
interne 


PageMaker offre des possibilités 
d'édition de texte mais, visible- 
ment, cet éditeur interne n'a pas 
été conçu pour êüe l'atout majeur 
du logiciel ! Il permet la création 
de textes autonomes ; cependant 
attention, il lui arrive de temps en 
temps (surtout avec la version 
1.8) de ne pas respecter les 
marges et colonnes. On peut 
également l'utiliser pour modifier 
(insertion, suppression, etc.) des 
documents provenant de logiciels 
extérieurs mais, là encore, pru- 
dence : les résultats sont parfois 
aléatoires en ce qui concerne la 
mise en page. 

Il est préférable de réserver 
l'usage de l'éditeur à l'ajout de 
titres ou de légendes, et de passer 
par un traitement de texte clas- 
sique pour créer des textes longs. 
D'ailleurs, PageMaker ne prétend 
pas au titre de traitement de texte. 


Un menu déroulant (Typo) per- 
met de choisir le style des carac- 
tères (standard, gras, italique..….), 
d'inverser leur ‘couleur’ et de 
déterminer l'alignement et la 
justification. Des raccourcis exis- 
tent qui accélèrent certains de ces 
choix. On peut, à travers une 
fenêtre de dialogue ouverte par la 
commande Caractères, choisir la 
police de caractères, la taille, la 
position (indice, exposant) et 
l'interlignage. 

Ii est également possible par ce 
menu de déterminer la tabulation 
(commande Tabulation). Une 
règle apparaît alors à l'écran, 


comportant un repère d'inden- 
tation ainsi que des taquets de 
tabulation gauche, droite, centrée 4 
ou décimale (cherchez bien ces 4 
taquets. ils sont cachés sous le 
repère d'indentation !). 

On peut regretter l'absence de 
certaines fonctions classiques de 
traitement de texte : recherche/ 
remplacement, glossaire, En 
revanche, PageMaker propose un 
trait d'union ‘aléatoire’ pennettant 
une césure automatique des mots 
en cas de besoin (colonnes trop 
étroites). 


Les outils 
semi-graphiques 


Une trousse à outils, toujours 
présente à l'écran, permet d'ef- 
fectuer toutes sortes de tracés 
(lignes, rectangles, carrés, cer- 
cles, ovales), la sélection du type 
de trait et de fond se faisant par 
deux menus déroulants. Les 
commandes Premier plan et 
Second plan du menu Edition 
(analogues à celles de MacDraw) 
se montrent très pratiques pour la 
réalisation d'encadrements variés. 


Les graphiques et dessins placés 
sur une page peuvent être mo- 
difiés. Il faut pour cela les sélec- 
tionner à l'aide de la souris. Des 
poignées apparaissent alors, qui 
permettent de les agrandir ou de 
les réduire avec le pointeur en 
forme de flèche. Attention, ce 
genre de modifications, en dé- 
fonnant les caractères, rend par- 
fois les légendes illisibles. 


On trouve aussi dans la trousse 
des ciseaux permettant de couper 
des graphiques ou dessins. Ces 
“découpages” se font sans perte 
d'information car il est possible, 
toujours avec les ciseaux, de 
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revenir à l'état initial de l'image. 


Placer un 
document 


L'éditeur de texte et les outils 
sont des accessoires. PageMaker 
est essentiellement conçu pour 
mettre en page des documents 
créés avec d'autres logiciels et 
c'est bien sur ce point qu'il se 
montre le plus performant. 


La mise en place de ces do- 
cuments se fait soit par la 
commande Placer du menu Fi- 
chier, soit en passant par le 
Presse-papiers. L'utilisation de la 
commande Placer ouvre une 
fenêtre de dialogue permettant de 
choisir le document désiré, ce 
document devant se trouver sur 
une des disquettes en place ou sur 
le disque dur. Le choix d'un 
document fait apparaître un 
pointeur dont la forme varie selon 
le type du document. Il ne reste 
plus qu'à le placer à l'endroit 
voulu. 

Les documents provenant d'un 
logiciel de traitement de texte 
(MacWrite, Word...) peuvent être 
placés directement en conservant 
la mise en page originale. Il est 
également possible de modifier 
cette mise en page par la création 
de colonnes et en u#lisant la règle 
de tabulation. Nous reparlerons 
de l'utilisation de ces colonnes 
qui constituent un des attraits de 
PageMaker. 


Pour un tableau, les choses se 
passent un peu moins simple- 
ment, le document voyant le plus 
souvent sa tabulation perturbée. 
Si votre tableur possède une 
fonction ‘Copie de l'image’ 
(comme Excel), aucun problème, 
‘le tableau est conservé dans le 
Presse-papiers avec ses tabula- 
tions. Si ce n'est pas le cas 
(comme, par exemple, avec 
Multiplan) le tableau se trouvera 
également dans le Presse-papiers, 
mais les tabulations seront 
perdues. Enfin, si votre tableur 
permet l'enregistrement sous 
forme ‘texte’, vous pourrez 
utiliser la commande Placer maïs, 
là encore, vous devrez revoir la 
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tabulation. 


Les dessins (type MacPaint ou 
MacDraw) sont également acces- 
sibles par la commande Placer ou 
à partir du Presse-papiers (pour 
MacDraw le document doit être 
enregistré en format ‘Picture’). 
Ces dessins sont aisément 
modifiables : agrandissement, ré- 
duction, découpage grâce aux 
outils de la trousse. 


La mise en page 


Au démarrage, après avoir choisi 
le format d'impression, la pre- 
mière page s'affiche en taille 
écran. Ce format donne une vue 
d'ensemble de la page mais les 
textes sont illisibles. D'autres 
formats existent : taille réelle, 
réduction à 50% ou 70% et 
agrandissement à 200%. On trou- 
ve au bas de l'écran les icônes de 
chaque page ainsi que les icônes 
de la maquette. 

La réalisation d'une page à l'aide 
de PageMaker se déroule en trois 
étapes : composition de la page en 
disposant divers repères, place- 
ment des documents extérieurs, 
finition à l'aide des outils de la 
trousse et de l'éditeur de texte. 


La composition de la page se fait 
en général en taille écran (la page 
est alors entièrement visible). On 
peut demander l'affichage de 
règles horizontales et verticales 
qui permettent de placer des 
repères (en tirant avec la souris à 
partir des règles). Ces repères 
sont sans effet sur la disposition 
des éléments de la page, mais se 
montrent très commodes pour le 
travail, la commande Magnétisme 
des repères collant automa- 
tiquement contre le repère tout 
document placé à proximité. Le 
point d'intersection des règles, 
point zéro des graduations, peut 
être placé en n'importe quel en- 
droit de la page, ce qui aidera au 
centrage de certains documents. 


Xest également possible de placer 
des repères “actifs” : les colon- 
nes, dont on choisira le nombre et 
l'espacement par la commande 
Disposition des colonnes. De 
plus, leur position et leur largeur 
pourront être modifiées par la 


souris. En utilisant cette option, 
tout texte placé sur la page perdra 
sa tabulation et sa justification 
originale pour se dérouler à l'in- 
térieur de la colonne, avec la mise 
en page que vous aurez choisie. 
Un texte trop long pour une 
colonne pourra être poursuivi 
dans la suivante, sans difficulté, à 
l'aide du pointeur. 


Un texte qui vient d'être placé sur 
une page est entouré de poignées 
de sélection qui permettent, en 
tirant avec la souris, de le décou- 
per en pavés que l'on pourra 
déplacer indépendamment les uns 
des autres sans que le texte perde 
sa continuité (si l'on insère du 
texte dans un pavé, l'excédent est 
transféré dans le pavé suivant). 
De la même manière, il est 
possible de regrouper plusieurs 
pavés en un. Pour faire apparaître 
ces poignées il suffit de sélection- 
ner le pavé avec la souris. 


Le placement de dessins ou 
graphiques n'est pas affecté par 
les colonnes, mais l'utilisation du 
Magnétisme des repères permet 
des alignements parfaits. Il est 
possible d'intégrer ces images au 
texte soit en déplaçant des pavés, 
soit en modifiant la disposition 
des colonnes. 


Ces opérations de placement des 
documents s'effectuent de préfé- 
rence en taille réelle, la taille écran 
ne donnant pas une vision exacte 
du résultat. Evidemment, en taille 
réelle, la page n'apparaît pas tota- 
lement (à moins de disposer d'un 
écran pleine page) mais on peut 
se déplacer à l'aide des ascen- 
seurs habituels du Macintosh. 


En taille écran, on voit que la 
page n'occupe pas toute la place 
disponible. Cet espace libre est la 
table de montage (également utili- 
sable en taille réelle). On effec- 
tuera sur cette table le bricolage : 
modification des documents, 
construction de certains motifs 
graphiques... En effet, le travail 
sur un élément d'une page se fait 
avec la souris, le risque étant 
alors de déplacer un élément cor- 
rectement placé lorsqu'on veut en 
modifier un autre. Le travail sur 
la table de montage permettra 
d'éviter ces erreurs de manipu- 
lation, en particulier dans le cas 





de pages complexes comportant 
un grand nombre d'éléments. 


La maquette 


Si certains éléments doivent se 
trouver sur toutes les pages d'une 
publication : repères, encadre- 
ments, logos, pagination... il 
suffit de créer une maquette, 
accessible par l'icône recto (ou 
deux icônes recto et verso, selon 
le choix du format d'impression). 
Toutes les fonctions de 
PageMaker sont disponibles sur 
ces maquettes. 


Les éléments placés sur la ma- 
quette se retrouveront sur toutes 
les pages de la publication, mais 
il est possible de les faire dispa- 
raître de certaines pages par la 
commande Supprimer les motifs 
de la maquette. 


Dans le cas d'une publication 
recto/verso, on définit deux ma- 
quettes qui peuvent être différen- 
tes, Il est possible, pour les com- 
parer, de demander l'affichage de 
la double page. Cependant, on ne 
pourra pas travailler dessus, tous 
les outils et commandes étant 
alors inactivés. Cette commande 
Afficher la double page est 
utilisable pour comparer deux 
pages se faisant face dans la 
publication. 


Le repère de foliotage peut se 
placer en tout point de la maquette 
et il est possible , dans le cas 
d'une publication recto/verso, de 
ne le placer que sur une des deux 
maquettes. La numérotation ne 
peut se faire qu'en chiffres 
arabes. 


La manipulation 
des pages 


On a vu qu'il est facile de sup- 
primer une page ou d'en insérer 
une nouvelle (toujours dans la 
limite de seize). Toutefois, dans 
le cas d'une publication recto/ 
verso, attention à la parité ! En ef- 
fet si les maquettes des pages pai- 
res et impaires sont différentes, la 
mise en page peut être perturbée. 


Il est possible d'intervertir des 


pages ou de recopier une page sur 
une autre. [1 suffit de sélectionner 
toute la page (en taille écran) puis 
de la coller sur une autre page. 


L'impression 


PageMaker admet de nombreuses 
imprimantes (ImageWriter, Laser 
Writer ou toute imprimante ou 
photocomposeuse acceptant le 
langage PostScript) mais l'im- 
pression n'est pas très rapide. 
C'est bien sûr avec une impri- 
mante à laser que l'on obtiendra 
les meilleurs résultats. 


Avec la Laser Writer, différentes 
options sont disponibles : le lis- 
sage, qui améliore la qualité d'im- 
pression des textes et graphiques 
(soyez patient, l'impression est 
plus lente), des réductions ou 
agrandissements allant de 15% à 
1000%, le montage en taille ré- 
duite de toutes les pages sur une 
même feuille, perinettant une vue 
d'ensemble de la publication. Le 
résultat obtenu sur le papier est 
identique à ce que vous voyez à 
l'écran en taille réelle (What You 
See Is What You Get, le 
WYSIWIG à la mode !) mais, 
bien entendu, les différents repè- 
res et règles n'apparaissent pas. 
On observe cependant quelques 
différences entre l'écran et l'im- 
pression laser, particulièrement 
pour les styles autres que stan- 
dard ainsi que pour les mélanges 
de textes avec des dessins de type 
MacPaint. 


Apprendre à 
utiliser PageMaker 


PageMaker est accompagné d'une 
disquette ‘visite guidée’ qui per- 
met un premier contact avec le 
logiciel. La documentation com- 
mence également par une visite 
guidée suivie de l'exposé des dif- 
férentes fonctions. Elle est claire 
et bien traduite, nous n'y avons 
pas décelé d'erreur. Elle est com- 
plétée par un glossaire et un 
index. 


Le logiciel dispose en outre d'une 
fonction assistance facilement uti- 
lisable et suffisamment explicite. 





Avantages et 
faiblesses 


Au rang des faiblesses, nous pla- 
cerons en premier lieu l'éditeur de 
texte aux fonctions limitées. À un 
moment où les logiciels de traite- 
ment de texte offrent de plus en 
plus de possibilités de mise en 
page, un logiciel d'édition élec- 
tronique devrait permettre un trai- 
tement aisé des textes. 


On regrettera également de ne pas 
pouvoir concevoir plusieurs ma- 
quettes pour une même publica- 
tion ainsi que l'impossibilité de 
travailler sur plusieurs pages si- 
multanément. La limitation à seize 
pages d'une publication est elle 
aussi assez gênante, 


Parmi les points forts de 
PageMaker, on comptera tout 
d'abord sa grande simplicité 
d'utilisation lors du placement de 
documents externes. D'une ma- 
nière générale, les différentes op- 
tions s'utilisent commodément : 
création des maquettes, réduction 
ou agrandissement des pages, 
disposition des colonnes et repè- 
res dont le magnétisme est parti- 
culièrement efficace. 


Autre avantage : le découpage des 
textes en pavés qui offre, avec un 
peu d'habitude, de nombreuses 
possibilités. 


Un bon point aussi pour la 
trousse, toujours accessible, et 
dont les outils semi-graphiques 
sont intéressants. 


Conclusion 


PageMaker est tout à fait satisfai- 
sant dès lors qu'il s'agit de re- 
grouper des documents de prove- 
nances variées en leur ajoutant 
des encadrements, traits, etc. 
l'éditeur de texte n'étant utilisé 
que pour écrire titres et légendes 
ou modifier légèrement les textes. 


Finalement, c'est quand même 
vous qui ferez qu'une page sera 
belle et agréable à lire ! . 
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Les nouveau-nés : 
Mac SE & Mac II 


À l'issue de la récente annonce des nouveaux venus 
de la gamme Apple, nous vous proposons ici une 
présentation qui ne se laissera pas entraîner par notre 
enthousiasme face à un Mac en couleur. Regrettons 
seulement qu'il faille nécessairement, dans une telle 
approche, aborder la question du prix qui refroidit 
quelque peu. 


Présentation 


Mac SE : c'est quasiment un Macintosh Plus avec 
une légère évolution du clavier. Le coloris est platine, 
celle de l'Apple IIGs, mais aussi celle des Mac Plus 
dès ce mois-ci. 

Mac II : l'unité centrale est plus volumineuse — on 
pense à un IBM - moniteur type IIGs, clavier 
détachable avec touches de fonctions et touches 
spéciales (pour MS/DOS ou UNIX). Il arbore un 
aspect ‘professionnel’ (plus que le Mac ?) que 
certains apprécient. 


Ouvert, Fermé ? 


Si le Mac n'est pas si fermé qu'on a bien voulu le 
dire (ou le médire), les nouveaux Mac sont 


résolument ouverts. Il ne s'agit pas d'une ouverture 
‘à l'Apple J[’ (qui conduit, selon l'usage, à ne jamais 
reposer le capot !) mais d'une facilité d'évolution de 
la machine. 


Mac SE : un seul connecteur - mais 96 broches — 
sur la carte mère pour installer des cartes 
d'extensions : adaptation au MS/DOS, carte vidéo, 
accélérateur, modem intégré. 6 périphériques SCSI 
peuvent être connectés en plus de l'éventuel disque 
dur interne. 


Mac II : 6 connecteurs d'extension dont l'un 
occupé par la carte vidéo. 6 périphériques peuvent 
également être chaînés sur le port SCSI en plus du 
disque dur. La transmission des données sur les 
connecteurs utilise le protocole NuBus qui supprime 
le problème de la configuration manuelle. 

Une version du système d'exploitation UNIX, 
appelé A/UX, sera proposée à la fin de l'année. On 
parle de facilité de communication (Ethernet, 
Appletalk) sous A/UX. 


Mac SE et Mac IT : avec un lecteur 5,25 pouces, 
il sera possible de lire des fichiers MS/DOS sans 
carte spéciale grace à un soft Apple : InterFile. 


L'ouverture, C'est aussi deux ports série, un port 
lecteur de disquettes externe, une interface d'entrée 
(clavier, souris...) pouvant gérer 16 périphériques et 
un port son stéréo 4 voix. 
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Stockage 


MacSE : ce modèle sera proposé en deux versions, 
deux lecteurs de disquettes 800 Ko, ou un seul mais 
avec un disque dur de 20 Mo SCSI. 


Mac II : il sera équipé d'un ou deux lecteurs de 
disquettes 800 Ko et d'un disque dur de 20, 40 ou 
80 Mo. 


La vidéo 


MacSE : monochrome. 


Mac II : 640 x 480 points. La carte pilote un 
moniteur vidéo très haute résolution de 12 pouces 
monochrome ou 13 pouces en couleur. En standard, 
16 couleurs ou nuances de gris parmi 16 millions et, 
avec extension mémoire, 256 couleurs ou nuances de 
gris ; cela ne laisse pas indifférent. Pour une 
présentation sophistiquée à l'écran, les 
programmeurs souffriront certainement. Les 
programmes tournant actuellement sur le Mac ne sont 
pas tous une démonstration de bon goût et de 
fignolage alors, avec l'arrivée de la couleur et 
307 200 points. 


Le processeur 

Mac SE : comme le Mac : MC68000 Motorola 
(32/16 bits) à 8 Mhz. 

Mac II : MC68020 (32/32 bits) à 16 Mhz, 
coprocesseur arithmétique 68881 pour des calculs 
fulgurants (200 fois plus rapide qu'avec le 68020 
seul). 








La vitesse 

Mac SE : bien qu'utilisant le même processeur 
68000, 15 à 20 % sont gagnés grâce à des accès 
mémoire plus rapides. Les accès au disque dur SCSI 
sont deux fois plus rapide. 


Mac II : un 68020 à 16 Mhz ne déçoit pas ; 
transfert via SCSI à 1 Mo/s 


La mémoire vive 


Mac SE : il est livré avec 1 Mo de Ram, extensible 
à 4 Mo. 


Mac IT : 1 Mo extensible à 8 Mo sur carte mère 
mais 15000 Mo sur cartes d'extension. Prix des 15 
gigas ? 


La mémoire ‘morte’ 
Mac SE : 256 Ko (Contre 128Ko sur le Mac Plus) 
Mac II : 256 Ko 


Disponibilité 
Mac SE : mars 87. Mac IT : juin 87. 
Extension 2 Mo (SE ou IT) : mai. 


Prix 
Macs$SE : avec 1 Mo de Ram et disque dur intégré : 
35 000 Frs TTC. 


Mac IT : avec 1 Mo de Ram et disque dur intégré 20 
Mo, deux lecteurs 800 Ko, moniteur monochrome, 
carte vidéo : 65000 Frs TTC. 
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Cryptage de fichiers 





confidentiels : Kruptos 


Le but de l'accessoire de bureau 
“Kruptos” est le cryptage — et, bien sûr, 
le décryptage — de fichiers 
confidentiels, ceci afin de les rendre 
incompréhensibles et, de manière 
générale, inexploitables par des tiers. 


Effets de Kruptos 


Un fichier codé à l'aide de Kruptos 
présente les caractéristiques sw'vantes : 


* il n'a plus d'icône personnalisé et 
donc, vu du Finder, il est banalisé et 
l'éventuel ‘espion’ ne pourra pas 
faire la différence entre, par exemple, 
un fichier MacWrite et un fichier 
MacPaint ; 

* il n'est plus ‘double cliquable’, et 
toute tentative d'ouverture par cette 
méthode se soldera par un message 
«li n'y a pas d'application pour 
ouvrir ce document.» ; 

* un essai de chargement depuis l'ap- 
plication correspondante — générale- 
ment avec l'article ‘Ouvrir’ du menu 
‘Fichier’ — reste possible, mais abou- 
tira selon les applications, prévoyan- 
tes ou pas, au mieux à un message 
pouvant ressembler à «Ceci n'est pas 
un fichier créé par Bilurp», et au pire 
à la bombe. Il va sans dire que pour 
essayer d'ouvrir le fichier depuis 
l'application, il faut d'abord deviner 
quelle est cette dernière ; 

+ le contenu du fichier, après codage, 
étant très ‘abimé’, les éditeurs de 
secteurs et autres outils de ‘déplom- 
bage’ ne seront d'aucun secours au 
Curieux. 


Utiliser Kruptos 


L'accessoire est très simple à utiliser. Il 
faut d'abord choisir le fichier à crypter 
en utilisant le bouton ‘Fichier’, qui 
provoque l'affichage de la fenêtre de 
sélection qui vous propose tous les 
fichiers sauf : 


* les applications (type APPL/xxxx) ; 

+ les fichiers ‘système’ (type xxxx/ 
MACS - system, Finder, Clipboard 
File...) ; 

+ les fichiers ouverts ou en cours 
d'utilisation. 


Une fois le fichier sélectionné, 
l'accessoire affiche le nom du fichier, 
ainsi que son type. L'affichage du type 
— lui aussi codé — permet d'avoir une 
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indication, quand on ren est plus bien 
sûr, sur le codage ou le non codage du 
fichier : dans le cas d'un fichier non 
codé, le type est généralement cohérent, 
par exemple ‘MACA”’ pour un fichier 
MacWrite, alors que le traitement rend 
invariabiement le type fantaisiste 
(t+03, *L6...). Afin que le type ne 
facilite pas la tâche du pirate, son 
codage est différent de celui du fichier 
proprement dit. 


Il faut ensuite (ou avant la sélection du 
fichier, l'ordre n'a pas d'importance) 
choisir la clef à utiliser pour le codage. 
La clef est constituée de quatre 
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caractères quelconques qui peuvent être 
frappés directement au clavier, ou 
encore ‘collés’. Dans ce dernier cas, et 
si l'on utilise un accessoire de bureau 
comme le ‘ad litteram’ du numéro 25, 
on dispose de 243 caractères différents, 
ce qui nous donne 3 486 784 401 
combinaisons possibles. 


Ï ne reste plus qu'à actionner le bouton 
‘Codage/décodage’ pour que l'opéra- 
tion soit effectuée, au rythme d'environ 
80K0 par minute (le temps d'exécution 
peut varier sensiblement en fonction de 
la mémoire de masse utilisée). 














Le codage peut être effectué plusieurs 
fois de suite avec des clefs différentes 
ou identiques, ce qui peut augmenter le 
nombre de possibilités jusqu'à 4 294 
967 296. L'ordre utilisé pour le 
décodage d'un tel fichier peut ne pas se 
faire dans l'ordre. Par exemple, si l'on 
a utilisé les clefs 1234, ABCD et 
POMS, le fichier pourra être décodé en 
donnant d'abord ABCD, puis POMS, 
puis enfin 1234. 


Anecdotique : cette version de 
Kruptos est compatible avec la version 
pour Apple ][ publiée dans ce numéro ; 
il est donc possible de coder un fichier 
sur un Mac et le décoder sur un Apple 
]{, ou l'inverse. 





accessoires 





Petit jeu : si vous êtes le premier à 
téléphoner pour nous communiquer la 
clef qui a servi à crypter le fichier 
‘secret’ listé page précédente, vous 
gagnerez le cadeau indiqué dans le 
fichier. Pour vous faciliter la tâche : il 
s'agit d'un fichier créé avec MacWrite 
et sauvegardé en format ‘texte seul”. 
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Fichiers et sources de 
l'accessoire “Kruptos” 


Note : le caractère “Â indique la continuité de la 


ligne courante. 


DrapeauEOF 
Clef 

LongueurD 
LongueurR 
Tampon522 
CompteurTiming 
TailleTampon 





EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


DrapeauCurs+1 
DrapeauEOF +1 
Clef+4 
LongueurD+4 
LongueurR+4 
Tampon522+522 
CompteurTiming-+4 


Oui EQU S100 
MaxC EQU 4 
1 1 CA l BS EQU 8 
Fichier ‘Kruptos.]ob nt 
Asm Kiuptos.Asm Exec Edit Be 
Link Kruptos.Link Font/DA Mover Edit DC  S400 
: : : DC O0 
Fichier ‘Kruptos.Link’ DC  SiéA 
DC O0 
] DC  Ouverture-Base 
/Resources DC  Status-Base 
Kruptos DC  Controle-Base 
/output Accessoire ‘Kruptos” DC  Status-Base 
/Type 'DFIL' 'DMOV' DC  Fermeture-Base 
$ Titre 


Source ‘“Kruptos.Asm” 


INCLUDE Kruptos/1.Asm 
INCLUDE Kruptos/2.Asm 
END 


DC.B 7,'Kruptos' 


; Ouverture de l'accessoire 


Ouverture 


MOVEML D3-D7/A1-A4,-(SP) 
MOVEA.L A1,A4 





TST.L dCtlWindow(A4) 
Source ‘Kruptos/1.Asm' Fe LES 

MOVEL  SP,-SP) 
RESOURCE ‘DRVR 29 'Ktuptos' GetPort 

MOVEL  #TailleTampon,DO 
INCLUDE FSEqu.Txt _NewPtr.clear 
INCLUDE MacTraps.D TST DO 
INCLUDE SysEqu.D BEQ.S MemoireOK 
INCLUDE ToolEquD MOVE #7,-(SP) 
INCLUDE QuickEqu.D _SysBeep 
INCLUDE PackMacs.Txt BRA Status2 
HandieCtlF EQU WindowSize MemoireOK 
HandleCtiC EQU HandleCtlF+4 MOVEAL A0,A3 
HandIlText EQU HandleCtlC+4 SUBQ.L #4 SP 
HandleControle EQU HandiText+4 MOVEL  A3;,-(SP) 
CreateurFichier EQU HandleControle+4 PEA RectFenetre 
TypeFichier EQU  CreateurFichier+6 PEA Titre 
Fichier Courant EQU TypeFichier+6 MOVE #Oui,-(SP) 
ReponseGetFile EQU Fichier Courant+64 MOVE #noGrowDocProc,-(SP) 
TamponiO EQU ReponseGetFile+72 MOVEQL #-1,D0 
DrapeauMdf EQU TamponlO+ioFQElSize MOVEL  DG,-(SP) 
DrapeauColle EQU DrapeauMdf+1 MOVE #Oui,-(SP) 
DrapeauCurs EQU  DrapeauColle+1 CLR -(SP) 
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_NewWindow 


_SetPort 
MOVEL  A3,dCtilWindow(A4) 
MOVEL  DctlRefNum(Ad),WindowKind(A3) 


: Affichage des boutons 


SUBQ.L #4,SP 

MOVEL  A3,-(SP) 

PEA RectBoutonF 
PEA TitreBoutonF 
MOVE #Oui,-(SP) 
CLRL -(SP) 

GBRIE -(SP) 

CLRL -(SP) 
_NewControl 

MOVEL (SP), HandleCtiF(A3) 
MOVEL  A3,-(SP) 

PEA RectBoutonC 
PEA TitreBoutonC 
MOVE #Oui,-(SP) 
CLR.L -(SP) 

GER'E -(SP) 

MOVEQ  #1,D0 

MOVEL  DO,-(SP) 
_NewControl 

MOVEL  (Sl)+,HandleCtIC(A3) 
ST DrapeauMdf(A3) 
BSR InvalideBouton 


: Enregistrement ‘TextEdit” 


BSR PoliceChicago 
SUBQ.L #4,SP 
PEA RectVisTexte 
MOVEL  (SP),-(SP) 
_TENew 
MOVEL (SP), HandiText(A3) 
_TEActivate 
SF DrapeauCurs(A3) 
_InitCursor 
Status? 
_SetPort 
Status4 
MOVEL  dCtiWindow(A4),A3 
Status3 
MOVEML (SP)+,D3-D7/ A1-A4 
Status 
MOVEQ  #0,D0 
RTS 


; Fermeture de l'accessoire 


Fermeture 
MOVEML A3-A4,-(SP) 
MOVEAL A1,A4 
MOVEAL dCtlWindow(A4),A3 
MOVEL  HanrdiText(A3),-(SP) 
_TeDispose 
MOVEL A3,-(SP) 
_DisposWindow 
CLRL dCtlWindow(A4) 
MOVEAL A4,A1 
MOVEML (SP)+,43-A4 
BRA Status 


: Routine de contrôle 


Centrole 
MOVEM.L D3-D7/A1-A4,-(SP) 
MOVEAL A1,A4 
MOVEA.L A0,A2 


MOVEAL dCtIWindow(A4),A3 


MOVEL  A3,-(S/) 
_SetPart 

MOVE CSCode(A2),D0 
CMPI #accEvent,DO 
BEQ.S Evenement 
CMPI #accCursor,D0 
BEQ Curseur 

CMPI #accCut,D0 
BEQ Couper 

CMPI #accCopy,D0 
BEQ Copier 

CMPTI #acclaste DO 
BEQ Coller 

CMPTI #accClear,DO 
BEQ Effacer 

BRA Status3 


: Aiguillage des événements 


Evenement 
MOVEAL CSParam(A2),A2 
MOVE EvtNum(A2),D0 
CMPI #mButDwnEvt,D0O 
BEQ.S Contenu 
CMPI #keyDwnEvt,D0 
BEQ Touche 
CMPI #autoKeyEvt,DO 
BEQ Touche 
CMPI #updatEvt,D0 
BEQ MiseJour 
CMPI #activateEvt,DO 
BEQ Active 
BRA Status3 


; ‘click’ dans la fenêtre de l'accessoire 


Contenu 
PEA EvtMouse(A2) 
_GlobalToLocal 
CLR -(SP) 
MOVE.L  EvtMouse(A2),-(SP) 
MOVEL  A3,-(SP) 
PEA HandleControle(A3) 
_FindControl 
TST (SP)+ 
BEQ.S @1 
CLR -(SP) 
MOVEL  HandleControle(A3),-(SP) 
MOVEL  EvtMouse(A2),-(SP) 
CLRL -(SP) 
_TrackContro! 
TST (SP)+ 
BEO!S @1 
SUBQ.L #4 SP 
MOVEL  HandleControle(A3),-(SP) 
_GetCRefCon 
BSR Boutons 
BRA Status3 

@1 CLR -(SP) 
MOVE.L  EvtMouse(A2),-(SP) 
PEA RectVisTexte 
_PtinRect 
TST (SP)+ 
BEQ Status3 

@3 MOVEL  evtMouse(A2),-(SP) 
BTST #shiftKey,evtMeta(A2) 
SNE DO 
MOVE.B  DO0,-(SP) 
MOVEL  HlandlText(A3),-(SP) 
_TECIick 





Sur la 
disquette 
Ponrs 29, cet 
accessoire est 
installé dans le 
menu € avec 
les 5 autres 
accessoires 
décrits page 
78. 

l'est 
également 
sous la forme 
d'un fichier 
Font 
DAMover 
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BRA Status3 


: Achon sur le clavier. 


Touche 
BTST #0,evtMeta(A2) 
BEQS @4 


MOVE evtMessage+2(A2),D0 
ANDI #$DF,D0 


SUBI #86,D0 
BEQ Coller 
SUBQ #2,D0 
BEQ Couper 
SUBI #SFFEB,D0 
BNE.S @4 
BRA Copier 

@4 CMPIB #CR,evtMessage+3(A2) 
BEQ.S @5 
CMPI.B #BS,evtMessage+3(A2) 
BEQ.S @1 
BSR DeReference 
CMPI #MaxC,teLength(A0) 
BNE.S @1 
MOVE teSelStart(A0),DO 
CMP teSelEnd(A0),D0 
BNE.S @1 

@5 MOVE #7,-(SP) 
_SysBeep 
BRA Status3 


@1 MOVE evtMessage+2(A2),-(SP) 
MOVEL  HandiText(A3),-(SP) 


_TEKey 

Key2 
BSR DeReference 
CMPI #MaxC,teLength(AO) 
BEQ.S @i 
BSR InvalideBouton 
BRA.S @2 

@1 BSR ValideBouton 

@2 BRA Status3 


; Routine de mise à jour 


MiseJour 
MOVEL  A3,-(SP) 
_BeginUpdate 
BSR PoliceChicago 
MOVEA.L (A5),A0 
PEA gray(A0) 
_PenPat 
MOVEL #$500300008,-(SP}) 
_MoveTo 
MOVEL  #$500300160,-(SP) 
_LineTo 
MOVE.L  #$00300008,-(SP) 
.MoveTo 
MOVE.L #$500500160,-(SP) 
_LineTo 
PEA RectGris Texte 
_FrameRect 
_PenNorinal 
PEA RectTexte 
_FrameRect 
BSR AffichePoms 
MOVEL #$00170030,-(SP) 
_MoveTo 
PEA Chaine0O 
_DrawString 
MOVEL  #$00260034,-(SP) 
_MoveTo 
BSR PoliceMonaco 





PEA Chainel 
_DrawString 7 | 2] 
BSR PoliceChicago | _ 
TST.B Fichier Courant(A3) ca = 
BEQS @2 > 
BSR AffChaineFichier 
BSR AffChaineType 

@2 MOVEL  #$006400FD,-(SP) 
_MoveTo 
PEA Chained 
_-DrawString 


@1 MOVEL  A3,-(SP) 
_DrawControls 


PEA RectVisTexte 
_EraseRect 

PEA portRect(A3) 
MOVE.L  HandIText(A3),-(SP) 
_TEUpdate 

MOVEL  A3,-(SP) 
_EndUpdate 

BRA Status3 


; Réponse à un message ‘Activate’ ou "Deactivate’ 


Active 
BTST #activeFlag,evtMBut(A2) 
BEQ.S @1 
MOVEL  HandiText(A3),-(SP) 
_TEActivate 
SE DrapeauColle(A3) 
BRA Status3 

@1 MOVEL  HandiText(A3),-(SP) 
_TEDeactivate 
BRA Status3 


; Changement de la forme du curseur. 


Curseur 

Buffer SET -4 
LINK A6,#Buffer 
MOVE.L  HandiIText(A3),-(SP) 
_TEldle 
PEA Buffer(A6) 
_GetMouse 
CLR -(SP) 
MOVEL  Buffer(A6),-(SP) 
PEA RectVisTexte 
_PtinRect 
TST {SP)}+ 
BEQ.S @1 
MSIE DrapeauCurs(A3) 
BNE.S @2 


SUBQ.L #4, SP 

MOVE #iBeamCursor,-(SP) 
_GetCursor 

MOVEAL (SP)+,A0 

MOVE.L  (AO),-(SP) 


_SetCursor 
ST DrapeauCurs(A3) 
BRAS @2 

@1 TSTB DrapeauCurs(A3) 
BEQ.S @2 
SF DrapeauCurs(A3) 
InitCursor 

@2 UNLK A6 
BRA Status3 

Couper 
BSR VerifSelection 
BEQ Status3 


MOVEL  HandIText(A3),-(SP) 
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_TeCut 
BSR TETo$Scrap 
BSR ValideBouton 
BRA Status3 

Copier 
BSR VerifSelection 
BEQ Status3 
MOVEL  HandIText(A3),-(SP) 
_TeCopy 
BSR TEToScrap 
BRA Status3 

Coller 
TST.B DrapeauColle(A3) 
BNE.S @2 
ST DrapeauColle(A3) 
BSR TEFromScrap 


&2 MOVEAL HandiText(A3),A0 
MOVEA.L (A0),AO 
MOVE TeScrpLength,D0 
ADD teLength(A0),D0 
MOVE teSelEnd(A0),D1 
MOVE teSelStart(A0),D2 


SUB D2,D1 
SUB D1,D0 
CMPI #MaxC+1,D0 
BLT.S @1 
MOVE #7,-(SP) 
SysBeep 
BRA Status3 
@I TST TeScrpLength 
BEQ Status3 
MOVE.L HandiText(A3),-(SP) 
_TePaste 
BRA Key2 
Effacer 
BSR VerifSelection 
BEQ Status3 
MOVEL  HandiText(A3),-(SP) 
_TEDelete 
BSR ValideBouton 
BRA Status3 


ValideBouton 
TST.B DrapeauMdf(A3) 


BNE.S @1 
TSI-B FichierCourant(A3) 
BEQ.S @1 
BSR DeReference 
CMPI #MaxC,teLength(A0) 
BNE.S @1 
MOVEL  HandieCtiC(A3),-(SP) 
CLR -(SP) 
_HiliteControl 
Sn DrapeauMdf(A3) 

@1 RTS 

InvalideBouton 
TST.B DrapeauMdf(A3) 
BEQ.S @1 


MOVEL  HandleCtIC(A3),-(SP) 
MOVE #SFF,-(SP) 
_HiliteControl 
SF DrapeauMdf(A3) 

@1 RTS 


TEFromScrap 
MOVEML A0-A1/D0-D2,-(SP) 


SUBQ #4,SP 
MOVEL  teScrpHandle,-(SP) 


2 | 
MOVE.L #'TEXT',-(SP) | < 
CN 


PEA scratch8 

_GetScrap D 
MOVE.L  (SP)+,D0 

BPL.S @1 


MOVEQ #0,D0 

@I MOVE D0,TeScrpLength 
MOVEML (SP)+,A0-A1/D0-D2 
RTS 





TEToScrap 
MOVEML A0-A1/D0-D2,-(SP) 
SUBQ #4,SP 
_ZeroScrap 
ADDQ #4,SP 
MOVEAL teScrpHandle,AO 
SUBQ #4,SP 
_GetHandieSize 
MOVE.L D0,-(SP) 
_HLock 
MOVEL  #TEXT',-(SP) 
MOVE.L  (AO),-(SP) 
_PutScrap 
MOVEAL teScrpHandle,AO 
_HUnLock 
MOVEL  (SP)+,D0 
MOVEML (SP)+,A0-A1/D0-D2 
RTS 


DeReference 
MOVEAL HandiText(A3),A0 
MOVEA.L (A0),A0 
RTS 


PoliceChicago 
CLR -(SP) 
_TextFont 
MOVE #12,-(SP) 
_TextSize 
RTS 


PoliceMonaco 
MOVE #monaco,-(SP) 
_TextFont 
MOVE #9,-(SP) 
TextSize 


RTS 


VerifSelection 
BSR.S DeReference 
MOVE teSelStart(A0),D0O 
CMP teSelEnd(A0),D0 
RTS 


AffichePoms 

Tampon SET -bitmaprec 
LINK A6,#Tampon 
MOVEM.L AC-A4/D0-D2,-(SP) 
LEA Poms,A0 
MOVEL  A0,Tampon+baseAddr(A6) 
MOVE #4,Tampon+rowBytes(A6) 
CLR.L Tampon+bounds(A6) 
MOVEL  #$200020, Tampon+bounds+bottom(A6) 
PEA Tampon+baseAddr(A6) 
MOVEA.L A3,A0 
ADDQL #2,A0 
MOVE.L A0,-(SP) 
PEA Tampon+bounds(A6) 
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DC.L S00A2FFD6,S1451FEAB,$2A28FD45,54515F A A3 
DC.L SA20AFD45,S5100FAA3,S2A007D46,514007AAA 
DC.L S0A003D54,505001 AA8,502800 DD0,501000660 


Curseurl 
DCL $07C01930,521084104,541048102,S8102FFFE 
DC.L $81028102,541044104,521081930,507C00000 
DC.L  0,0,0,0,0,0,0,0 
DC 7,7 

Curseur? 
DC.L $07C01830,520484044,54084B082,58D028382 
DC.L $8162821A,$42044404,524081830,507C00000 
DC.L  0,0,0,0,0,0,0,0 
DC 77) 

Curseur3 
DCL  S07C01830,520085014,548248442,582828102 
DC.L  $82828442,548245014,520081830,507C00000 
DC.L  0,0,0,0,0,0,0,0 
DC PET. 

Curseur4 
DC.L S07C01830,524084404,$4204821A,581628382 
DC.L  S8D02B082,540844044,520481830,507C00000 
DC.L  0,0,0,0,0,0,0,0 
DC Ph 


Source ‘Kruptos/2.Asim'’ 


; Traitement en cas d'action sur un bouton. 


Boutons 
LINK A6,#0 
AOL 10(A6) 
BEQ BoutonFichier 


; Action sur le bouton ‘Codage/décodage" 


BoutonCodage 


; Copie de la clef dans le tampon de quatre octets ‘Clef 


BSR DeReference 
MOVEA.L teTextH(A0),AO 
MOVEAL (A0),A0 


PEA RectPoms 
CLR -(SP) / | i | 
CLRL (SP) Lo, = 
_CopyBits a EN 
MOVEM.L (SP)+,A0-A4/D0-D2 LS 
UNLK A6 
RTS 
AffChaineFichier 
MOVEL  #$00470008,-(SP) 
_MoveTo 
PEA Chaine2 
_DrawString 
PEA Fichier Courant(A3) 
_DrawString 
RTS 
AffChaineType 
PEA RectEffType 
_EraseRect 
MOVEL  #S004700D8,-(SP) 
_MoveTo 
PEA Chaine3 
_DrawString 
PEA TypeFichier+1(A3) 
_DrawString 
MOVE #' /',-(SP) 
_DrawChar 
PEA CreateurFichier+1(A3) 
_DrawString 
RTS 
InfoFichier 
LEA TamponlIO(A3),A0 
LEA ReponseGetFile+rName(A3),A1 
MOVEL  Al,ioFileName(A0) 
MOVE ReponseGetFile+r Volume(A3),f 
ioVRefNum(A0) 
CLR ioFDirIndex(A0) 
CLR.B ioFileType(A0) 
_GetFileInfo 
RTS 
RectFenetre DC  41,4,152,365 
RectGrisTexte DC 85,245,107,286 
RectTexte DC  85,285,107,353 
RectVisTexte DC  85+3,285+3,107-3,353-3 
RectBoutonF DC 86,8,106,80 
RectBoutonC DC  86,88,106,232 
RectPoms DC  8,8,40,40 
RectEffType DC  58,248,77,352 


ChaineO DC.B 


Chainel DC.B 


45,'La revue francophone des f 
utilisateurs d"Apple' 

49/'Éditions ME V — 12, rue d'Anjou J 
— 78000 Versailles’ 


Chaine2 DC.B 8, Fichier ‘0 

Chaine3 DC.B 5,Type ‘ 

Chaïine4 DC.B 4/,'Clef',0 

TitreBoutonEF DC.B 7, Fichier‘ 

TitreBoutonC  DC.B 15, Codage/décodage’ 
Align 2 


DC.L $00000000,$00000050,500000080,$00001100 
DC.L $000008AA,S00000155,5000000AAÀ,500001401 
DCL  $00002A02,$00004514,50000A280,500015140 
DC.L $000228A0,$00051440,500028A00,500014560 
DC.L $0028A2A0,500545140,5008A2980,500453D7C 


LEA Clef(A3),A1 
MOVEQ  #3,D0 

@1 MOVEB (AO)+,(A1)+ 
DBRA D0,@1 


; Vérification de la clef : on compare deux caractères 
; consécutifs. S'il sont identiques, on les modifie. 


LEA Clef(A3),A1 
MOVEQ  #2,D5 

@2 MOVE.B O(A1,D5),D0 
CMP.B 1(A1,D5),D0 
BNE.S @3 
MOVE-B  i(A1,D5),D1 
ADDQ #1,D5 
ADD.B D5,D0 
ADD.B D5,D1 
SUBQ #1,D5 
EORLB #SFF,D0 
MOVE.B  DO0,0(A1,D5) 
MOVE.B DI1,1(A1,D5) 

@3 DBRA D5,@2 


; Traitement de la partie ‘données’ du fichier, Si le fichier ne 
; contient que des ressources, ce segment n'est pas exécuté. 


TS LongueurDXA3) 
BEQ.S PartieRessources 
PartieDonnees 
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; Ouverture de ia partie ‘données’. 


LEA TamponlO(A3),A0 

LEA ReponseGetFile+rName(A3),A1 

MOVEL  Al,ioFileName(AO) 

MOVE ReponseGetFile+rVolume(A3),[ 
ioVRefNum(A0) 

LEA TamponS22(A3),A1 

MOVE.L Al,ioOwnBuf(A0) 


MOVE.B  #fsRdWrPerm,ioPermssn(A0) 


_Open 


; Appel du sous-programme de codage. 
BSR Code_Decode 


; Posihonnement de la fin de fichier pour la partie ‘données’. 


LEA TamponlO(A3),A0 
MOVEL  LongueurD(A3),ioLEOF(AO) 
_SetEOF 


; Fermeture de la partie ‘données’ du fichier 


LEA TamponlO(A3),A0 
_Close 


; Traitement de la partie ‘ressource’ du fichier. Si le fichier ne 
; contient que des ressources, ce segment n'est pas exécuté. 


PartieRessources 
TISTL LongueurR(A3) 
BEQ FinCodage 
; Ouverture de la partie ‘ressource’. 
LEA TamponlO{A3),A0 
LEA ReponseGetFile+rName(A3),A1 
MOVEL  Al,ioFileName(AO) 
MOVE ReponseGetFile+r Volume(A3),f 
ioVRefNum(A0) 
LEA Tampon522(A3),A1 
MOVEL  Aï,ioOwnBuf(A0) 
MOVEB  #fsRdWrPermioPermssn(A0) 
_OpenRF 


; Appel du sous-programme de codage. 
BSR Code_Decode 


, 


;: Positionnement de la fin de fichier pour la partie ‘ressource’. 


LEA TamponiO(A3),A0 
MOVEL  LongueurR(A3).ioLEOF(AD) 
_SetEOF 


; Fermeture de la partie ‘ressource’ du fichier. 


LEA TamponliO(A3),A0 
_Close 

FinCodage 
BSR InfoFichier 


; Codage du type du fichier. 


MOVE.L  Clef(A3),D5 
MOVE.B  Clef(A3),DO 
ROR.B #3,D0 
MOVEB  DO,Clef(A3) 
MOVEB  Clef+1(A3),D0 
ROL.B #2,D0 
MOVE.B  DO,Clef+1(A3) 
MOVE.B  Clef+2(A3),D0 
ROR.B #4,D0 
MOVE.B  DO,Clef+2(A3) 
MOVE.B  Clef+3(A3), DO 


SO ST AU à. MOD UE On OR. SN OT 


ROLB  #5,D0 

MOVEB  DO,Clef+3(A3) ; | si 
MOVEL  Clef(A3),D0 Ce = 
ROLL  #3,D0 ER 
MOVEL  D5,Clef(A3) » 


; Réécriture des informations du fichier avec le type modifié. 
LEA TamponiO(A3),A0 


EOR.L D0,ioFIUsrWds+fdCreator(A0) 

MOVEL  ioFlUsrWds+fdCreator(A0),f 
CreateurFichier+2(A3) 

_SetFilelnfo 

BSR AffChaineType 

; Mise à jour du volume. 

LEA TamponlO(A3),A0 

CLRL {oFileName(A0) 

MOVE ReponseGetFile+rVolume(A3),f 
ioVRefNum(AO) 

_FlushVol 


; Effacement de la zone de saisie 


MOVEQ  #0,D0 

MOVEL  DO,-(SP) 

MOVEQ  #4,D0 

MOVEL  DO,-(SP) 

MOVEL  HandIText(A3),-(SP) 
_TESetSelect 

MOVEL  HandIiText(A3),-(SP) 
_TEDelete 

BSR InvalideBouton 

BRA SortieBoutons 


: Action sur le bouton ‘Fichier’ 
BoutonFichier 


; Affichage de la fenêtre de sélection. Les fichiers sont filtrés 
; par la procédure ‘FiltreFichiers. 


MOVEL  #S$001E000C,-(SP) 
CLRL -(SP) 

PEA FiltreFichiers 
MOVE #-1,-(SP) 

CLRL -(SP) 

CLR.L -(SP) 

PEA ReponseGetFile(A3) 
MOVE #SFGetFile,-(SP) 
_Pack3 

IST ReponseGetFile+1Good(A3) 
BEQ.S SortieBoutons 


; Lecture des infos sur le fichier. 
BSR InfoFichier 


; Déplacement du nom de fichier, et modification s'il est frop 
; long pour tenir dans la place qui lui est réservé. 


MOVEQ #0,D0 

MOVE.B  ReponseGetFile+rName(A3),D0 
ADDQ #1,D0 

LEA ReponseGetFile+rName(A3),A0 
LEA Fichier Courant(A3),A1 
_BlockMove 

CLR -(SP) 

PEA Fichier Courant(A3) 
_StringWidth 

CMPI #144,(SP)+ 

BLT.S @1 

MOVEQ  #0,D4 
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LEA FichierCourant(A3),A2 | 

MOVE.B  (A2),D4 Û 2 
@2 MOVEB #.,0(A2,D4) Ge 

CLR (SP) SES 

PEA FichierCourant(A3) D 

_StringWidth 

CMPI #144,(SP)+ 

BLT.S @1 


SUBQ.B  #1,(A2) 
SUBQ #1,D4 
BRA.S @2 


; Mise en réserve des infos qui seront utilisées par la suite. 


@1 MOVEL  TamponlO+#ioFIUsr Wds+faT ype(A3).{ 

TypeFichier+2(A3) 

MOVEL TamponlO+ioFlUsrWds+fdCreator(A3),[ 
CreateurFichier+2(A3) 

MOVEB #4 TypeFichier+1(A3) 

MOVE.B #4, CreateurFichier+1(A3) 

MOVEL  TamponlO+ioFILgLen(A3), LongueurD(A3) 

MOVEL  TamponlO+ioFIRLgLen(A3) Longueur R(A3) 


;: Vers affichage des chaînes, 


BSR AffChaineFichier 

BSR AffChaineType 

BSR ValideBouton 
SortieBoutons 

UNLK A6 

MOVEL  (SP)+,(SP) 

RTS 


; Rout'ne de codage (ou décodage). 
Code_Decode 


PEA Curseur1 
_SetCursor 
SUBQ.L #4,SP 
_TickCount 
MOVEL  (SP)}+,CompteurTiming(A3) 
MOVEL  Clef(A3),D6 
LEA Scratch8,A4 
LEA Curseur1,A2 
MOVEQ  #1,D4 
MOVEQ  #-4,D5 
MOVEQ #4, D7 
@1 BSR CurseurAttente 
LEA TamponlO(A3),A0 
MOVEL  D7,oReqCount(A0) 
MOVEL  AdioBuffer(A0) 
MOVE #fsAtMark,ioPosMode(A0) 
_Read 
BNE @2 
ROL.L #1,D6 
EOR.L D6,scratch8 
MOVE.L  D7;oReqCount(A0) 
MOVE.L  A4,ioBuffer(A0) 
MOVE #fsFromMark,ioPosMode(A0) 
MOVEL  D5,ioPosOffset(A0) 
_Write 
BRAS @1 
@2 SF DrapeauCurs(A3) 
_JnitCursor 
RTS 


; Filtre pour la fenêtre de sélection des fichiers. 
FiltreFichiers 


LINK A6,#0 
MOVEML D0-D2/A0-A2,-(SP) 
MOVEL  8(A6),A0 





CMPIL  #APPL'ioFIUsrWds+fdType(A0) 
BEQS FiltreNon 
CMPIL # MACS',ioFIUsr Wds+fdCreator(A0) 
BEQ.S FiltreNon 
TST.B ioFlAttrib(A0) 
BMIS FiltreNon 
MOVE ioFIUsrWds+fdFlags(A0), DO 
ANDI #$5000,D0 
BNE.S FiltreNon 
CLR 12(A6) 
BRA.S FiltreOK 
FiltreNon 
MOVE #$FFFF,12(A6) 
FiltreOK 
MOVEML (SP)+,D0-D2/A0-A2 
UNLK A6 
MOVEL  (SP),4(SP) 
ADDQL  #4,SP 
RTS 


; Geshon du curseur ‘animé. 


CurseurAttente 
SUBQ.L #4,SP 
_TickCount 
MOVEL  CompteurTiming(A3),D0 
ADDQL  #2,D0 
CMPL (SP)+,D0 
BMIS ChangeCurseur 
RTS 
ChangeCurseur 
MOVE #68,D0 
MULU D4,D0 
PEA 0(A2,D0) 
_SetCursor 
SUBQ.L #4,5P 
_TickCount 
MOVEL  (SP}+,CompteurTiming(A3) 
ADDQ #1,D4 
ANDI #$0003,D4 
RTS 





Apple et Minitel : 


les caractères semi-oraphiques 


L'article de la page 10 de ce numéro vous donne 
les codes des caractères semi-graphiques ainsi que 
le moyen d'y accéder ; voici un petit programme 
qui vous permettra de concrétiser la méthode. 
N'oubliez pas de brancher le câble Mac/Minitel ! 


DEFINT A-Z 

OPEN "COM1:1200,E,7,1" FOR OUTPUT AS 1 
PRINT#1,CHRS$(&HC) CHR$(&HE); 
GOSUB Affiche 

PRINT#1,CHR$(&H1B) CHR$(&HSA); 
GOSUB Affiche 

PRINT#1,CHR$(&HF); 

CLOSE:END 


Affiche: 

FOR I=&H20 TO &H3F:PRINT#1,CHRS(I);:NEXT 
FOR I=&H5F TO &H7E:PRINT#1,CHRS(I):NEXT 
PRINT#1,CHR$(13) CHR$(10)RETURN 
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Cryptage de fichiers 


confidentiels : Kruptos 


Il arrive fréquemment que des 
fichiers utilisés sur un ordinateur 
doivent rester confidentiels, 
courrier privé, rapport 
professionnel, recette de la sauce 
aux câpres par exemple... Un 
programme Basic, un source 
assembleur, une feuille de calcul 
Multiplan en cours d'élaboration 
(pardon, en cours de 
développement), doivent parfois 
être hors d'atteinte pour éviter des 
modifications intempestives. 


C'est l'objet de la commande 
externe ProDOS que nous vous 
proposons ici. 


Nous ne reviendrons pas sur le 
principe des commandes externes 
ProDOS, abordé par A. Avrane 
dans le numéro 20 de Pom's : 
rappelons simplement qu'une fois 
installée, une commande externe 
s'utilise en mode direct ou en 
mode programme tout comme 
CAT, VERIFY, ou RENAME 
par exemple. 


Le cryptage 


La clef comporte 4 caractères 
quelconques, y compris les 
caractères de contrôle, ce qui 
permet de choisir parmi plus de 
200 000 000 de clef possibles. 
Le programme modifiera 
toutefois (sans le dire) les clefs 
comportant plusieurs caractères 
identiques. 


Le OÙ EXCLUSIF 


Un OÙ EXCLUSIF (EOR) est 
effectué entre les 4 premiers 
caractères du fichiers et la clef. La 
table de vérité du OÙ exclusif est 
la suivante : 


1 EOR 1 = 0 
1 EORO=I 
OEORI=I 
O0 EORO=0 


Autrement dit, l'un ou l'autre, 
mais pas les deux (Initiation à 
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l'assembleur 4, G. Michel, 
Pom's 14). 


Prenons par exemple les 4 
premiers caractères d'un fichier : 
‘jour’ ce qui correspond aux 
codes ASCII $6A, $6F, $75, 
72 

Prenons pour clef : ‘zss1” 
c'est-à-dire $SA, $53, $53, 531. 
Voici la représentation binaire de 
chacune des deux chaînes et 
l'opération OÙ exclusif effectuée 
entre les deux : 
01101010011011110111010101110010 
01011010010100110101001100110001 


00110000001111000010011001000011 


Le résultat correspond à $30, 
$3C, 526, $43 soit : ‘o<ec”. 
Ici, on peut donc écrire : 


jour EOR zss1 = 0<ec 
Le mot jour après codage est 
méconnaissable. 


La rotation 


Pour ne pas trop faciliter le travail 
de l'éventuel espion, avant 
chaque ECR entre 4 caractères du 
fichier et la clef, on effectue une 
rotation de cette clef d'un bit à 
gauche : 

Prenons pour exemple la clef 
P159. Avant le premier codage, 
nous décalons tous les bits d'une 
position sur la gauche (ROL en 
assembleur). Il faut bien entendu 
récupérer le bit qui tombe à 
gauche dans le bit de retenue du 
registre d'état pour le faire entrer 
à droite. 


P159= 
21010000001100000011010100111001 
P159 décalé = 
1010000001:000000110101001110010 
Le 0 de gauche est passé à droite 
et la clef utilisée réellement 
devient : ‘fespace]0jr ? 


Du fait de cette transformation à 
chaque étape, un fichier composé 


uniquement d'espaces et crypté 
avec la clef ‘p159° donne le 
résultat suivant : 


‘BJR'dtE!)Ij£3556EGJ, mnt8.. 


(les caractères soulignés sont des 
caractères de contrôle). 


Enfin, un jeu d'EOR et 
d'incrémentation transforme la 
clef au cas où deux caractères 
consécutifs seraient identiques 
(clef aabb par exemple). 


Créer la commande 


Si vous disposez de la disquette 
d'accompagnement de Pom’s, ce 
paragraphe ne vous est pas 
indispensable. 


Pour obtenir la commande, 
saisissez le fichier binaire 
KRUPTOS listé ci-après puis 
sauvegardez-le. 


Si vous optez pour la saisie du 
source assembleur, après 
assemblage, vous obtenez le 
fichier KRUPTOS.CODE qui n'est 
pas directement exécutable. Il 
vous faut également le 
programme d'installation des 
commandes externes CMDLOAD 
d'A. Avrane (Pom’s 20). Ce 
programme est constitué des 
codes qui vont de $2080 à $20FF 
dans le fichier KRUPToSs listé 
ci-après. Vous avez maintenant 
entre les mains les deux fichiers 
nécessaires ; faites alors : 


BLOAD CMDLOAD 
BLOAD KRUPTOS.CODE 
BSAVE KRUPTOS, A$2000, L$300 


Mode d'emploi 


Pour installer votre nouvelle 
commande, faites : 


—KRUPTOS 


La syntaxe pour chaque cryptage 
et décryptage est la suivante : 


NS 


»YUTEEÉNI “EUASà 6 « 








54 


KRUPTOS chemin d'accès, cl 
ef {,Sslot} [,Dadrive] 


Chernin d'accès : nom de votre 
fichier, éventuellement précédé de 
préfixes, 

Clef : 4 caractères, 

Slot et Drive : sont optionnels. 


Si la clef n'est pas valide, vous 
serez gratifié d'un INVALID 
PARAMETER. 


L'opération étant réversible, pour 
décrypter un fichier, il faut 
employer la même commande, 
avec la bonne clef. 


Si le fichier a été cryptée à l'aide 
de deux clefs successivement, 
décryptez-le avec les deux 
(l'ordre n'est pas important). 


Note 


Tous les fichiers sont cryptables 
par cette commande sauf: 


+ les fichiers de type SYS 
(ProDOS, Aw.System, Basic. 
System..….), 

* ceux de type DIR (catalogues 
de la disquette), 

* ceux de type $F0 (commandes 
ProDOS), 


et ce, par souci de précaution : un 
FILE TYPE MISMATCH vous 


Source KRUPTOS.S 


Assembleur ProCODE 

0 

2 DSK  KRUPTOS.CODE 

3 

4 CLE = 6 

5 PTR - 548 

6 HIMEM : 573 

7 REAB BUF = $200 

8 PRINTERR = $BEOC 

9 XTADDR = SBE50 
10 XLEN SBE52 
11 XCNUM - SBE53 
12 PBITS = $BE53 
13 VPATHI SBE6C 
14 VPATH2 = SBE6E 
15 GOSYSTEM = SBE70 
16 SSGINFO = $BEB4 
T7 PSGET = $BEC6 
18 SOPEN = SBECB 
19 SREAD « SBEDS5 
ZO UUVSALOSE = SBEDD 
21 SYSERR = SBFOF 
24 RTS = SFF58 
2SMUGET = $C4 
26 OPEN - $c8 
27 READ = $CA 
28 WRITE = $CB 
29 CLOSE = $CC 
30 SETMARK — SCE: 
31 GETMARK = $CF 
32 SETEOF SD0 


Fichier 


‘SECRET 


H s'agit du listage d'un fichier TEXT, créé par AppleWniter. À vous de trouver e premier la 
clef qui a servi au cryptage et de nous appeler pour recevoir fe cadeau indiqué 
ci-dessous... 


0000: 
0010: 
0020: 
0030: 
0040: 
0050: 
0060: 


SGdé..m Fä..enx 
.Lf.ùü>-tx.-]{].> 

ü,VQU4, .0z2<..W 
.",$.ala72ç...êm 
oW./.éé.9.!EC.K' 
J'Jx'3/1tGHrEr!0 
NGv'ès..f2$5Q9{.eD 


BS5 C9: 57 EM 
T'ANCCNE6N IC 
FF 2C ME D6 
85 A7 9A 39 


6F 57 84 


AF 


B4 CA 27 CA 


4E C7 


E 62/7 


7B VC 
GE 
51 DS 
2E E1 
89 FD 
F8 A7 
EDN75 


97 


A0 46 40 83 IC 
76) 9F %Æ PDG 28 SD: 17 SE 
FA B2 BC 
DC 06 06 06 7B 5D 
SIN SENAI ASNCS 10 5N4B, 
74 G70085 EF? 
E8 B2 24 51 SB 04 E5 C4 


0070: 69 C7 B4 
0080: 
0090: 
000: 
00B0: 
0PE O0! pr IST. VWI.-.E 2€ 
O0D0: 4. V-O28jeCeC7>. B4 35 20 
00E0: ..é?>4&YH{u,..A<. OA 83 FB 
00F0: J-àf8rk LP&-uà#z 
0100: Ah?.iPlèa. 
0110: -1*.g0# PDVDE, 


FiS45esssiYt'>.A C6 
KO/N/SJ2IÜ.QUE .. 
"L4J .-sVetM8£&Cr 27 CC B4 CA 
Z2.EERLzis.  410=. MA DA TONLELCS 


0F D6 BA 


AA 83 


CBEÉF 2F 4E 


-$.£"ux3RKI..,.cm 85 A5 82 26 


D6 
JE 
CA 2D CO E6 
HAT:S MCINES SEL 0 


B5 E5 24 A3 Ag 23 D9 74 27 3E O0E 41 
2F 51 CA B2 FC 1A 51 CA 45 AO 95 10 
BE ZE AD\FS80 56 E5 74 CDN38, 4745 72 
46 CC FA 69 0D 14 9A E4 8D 97 07 41 
22NF3 ES DSU D? AB EC 06  1B 196360 
DD A5 2C 59 0i D6 F7 49 8C 00 04 A6 
AD B0 FA 38 64 DC 43 E3 43 37 3E 0E 
BE 26 59 C8 DB F6 @Q7 14 18 41 BC 97 
B8 F2 6B FF CC 50 E2 7E 7C 40 23 7A 
69 50 DD FD Eg 06 05 C8 
E7 30 A3 





rappelera à l'ordre. Pour lever ces 
limites, supprimer les lignes 161 
à 167 du source. 


Cette commande est à manipuler 
avec précaution car décrypter un 
fichier avec une mauvaise clef 
revient à le crypter deux fois. 
Dans ce cas, décryptez-le avec les 
deux clefs. 





Il est vivement déconseillé 
d'utiliser des caractères de 
contrôle pour la clef : ceux-ci 
n'étant pas affichés, il est difficile 
de contrôler s'il n'y a pas de faute 
de frappe et on risque de ne pas 
savoir quel code a été utilisé. 


3SM\CETEON h $D1 

34 Pr 
35 ORG $2100 oDOS 
36 

7. B———m——m—m—mmm—mmmm—m—m——— 

38 * Est-ce notre commanee ? 
SO 

40 

41 START CZD 

42 

3 LDA #>FIN+S100 

44 LDA  #>LONG-$200 

45 V OLDCMD LDA RTS 

46 

47 LDA VPATHI 

48 STA PTR 

49 LCA VPATHI+1 

50 STA PTR+1 

51 

52 LDY #i ‘est-ce crypte ? 
53 COMPAR IDA (PTR),Y 

54 CMP  COMMANS-1,Y 

55 BNE NO CMD 

56 INY 

57 CPY #6+1 

58 BCC COMPAR 

59 

60 ee mm mm mm mme 
61 * Demande à ProDOS suite commande 
62 ee —— 
63 

64 NET: 

5 DEY 

66 STY XLEN 
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7 LDA #0 
68 STA SYSERR 
6 STA  XCNUM 
70 LDA #800000011 ;:2 noms de fichiers 
71 STA PBITS 
72 LDA #$00000100 ;slot/drive actorisés 
73 STA PBITS+] 
74 
75 V SUITE LDA SUITE 
76 LDA V SUITE+1 
PACA STA XTADDR 
78 LDA V SUITE+2 
79 STA XTADDR+#1 
80 CLC 
81 RTS 
82 
#3 NO CMD SEC 
84 JMP (V_OLDCMD+1) 
85 
GG) ACER 
87 * Controle validité cief 
88 Rmmmmm mm mm mm mme 
89 
90 SUITE L8A  VPATH2 svecteur nom de fichier 
91 STÀA CLE 
DZ LDA VPATH2+1 
83 TA CLE+1 
94 
95 LDY #0 
96 LDA (CLE},Y 
LIF2 
98 TAY ‘cherche le / 
59 LDX #0 
100 BCL LDA (CLE),Y 
191 CMP F'/! 
202 BEQ SLASH 
103 INX 
104 DEY 
105 BNE BCL 
106 
107 SLASH CPX #4 s2ème nom a bien 
108 BEQ CLE OK #4 caractères ? 
199 LDA 4#$8 ;ynon : invalid parameter 
210 JMP PRINTERR 
APT 
112 CLE OK LOX #0 sauve la clef 
113 INY 
114 BCLIi {DA (CLE},Y 
JHS) STA CLEF, X 
116 INY 
H,7 INX 
26 CPX #4 
119 BNE BCLI 
120 DEX 
EN 
122 BCL3 LDA CLEF,X 
723 DEX 
124 CMP CLEF,X 
125 BNE CLE VAL 
126 a 
127 TXA 
128 ADC CLEF,X 
125 EOR 6811111111 
130 STA CLEF,X 
eh INX 
132 TXA 
133 ADC CLEF,X 
134 STA CLEF,X 
135 DEX 
136 
157 CLE VAL CPX 460 
138 BNE BCL3 
139 
CN 
141 * Ouverture fichier 
192  K-————----——-—- 
243 
144 LSA VPATHI 
145 STA SOPEN+1 
146 STA SSGINFO+I 
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197 
148 
149 
150 
151 
152 
NES) 
154 
255 
156 
157 
158 
155 
160 
161 
162 
163 
164 
265 


168 


169 


171 


272 


LDA VPATHI1+1 
STA SOPEN+2 
STA SSGINFO+2 


LDA HIMEM 

STA SOPEN+3 
STA SREAD+5 
LDA HIMEM>1 
STA SOPEN+4 


LDA  8GFI 
JSR GOSYSTEM 
BCS ERREUR 


LDA SSGINFO+4 
CMP  #$0F 

BEQ ERRTYPE 
CMP #$FO 

BEQ ERRTYPE 
CMP W$FF 

BEQ ERRTYPE 


LDA  #OPEN 
USR  GOSYSTEM 
BCS ERREUR 


LDA SOPEN+5 
STA SREAD+1 
STA SGET+1 
STA SCLOSE+1 


LDA Æ<READ_BUF 
STA SREAD+2 
LDA 45READ BUF 
STA SREAD+3 


LDA 4GETEOF 
JSR GOSYSTEM 
BCS ERREUR 


LDY #4 
BCLGET IDA SGET,Y 
STA LONGUEUR, Fr 


BNE BCLGET 


LDX #4 
STX SREAD+4 


LOOP LDA  WGETMARK 
JSR  GOSYSTEM 
BCS ERREUR 
LDY #2 


BCLPOS LDA SGET+2,Yr 
STA POSITION, 


BPL BCLPOS 


LDA  #READ 
JSR GOSYSTEM 
BCC OK 

CMP #5 

BNE ERREUR 
BEQ FINAL 


ERRTYPE LDA #$D 
ERREUR  JMP PRINTERR 


OX ROL CLEF 
ROR CLEF 


LDX #3 
BCLCLE ROL CLEF,X 


get file info pour 
‘tÿDe de fichier 


scontrole type fichier 
sun directorÿy ? 
une commande ProDOS ? 


sun fichier système ? 


souvre le fichier 


srecopie n{ de référence 


scherche longueur fichier 


; sAuvegarde la longueur 


son lira 4 octets 


srelève la position 
‘dans le fichier 


sla sauvegarde 


slit fichier 


fin fichier ? 
non : exreuxr 


sfile type nismatcà 


smodification 
sde 14 clef 

















ce 
228 
229 
230 
231 

232 
233 
234 
235 
236 
234 
238 
239 
240 
241 

242 
243 
244 
245 

246 
247 
248 
249 

250 
251 























BCL2 


BCLPOS1 


252 FINAL 


BPL 


LDX 
LDA 
EOR 
STA 
DEX 
BPL 


LDY 
LDA 
STA 
DEY 
BPL 


LDA 


JSR 
BCS 


LDA 
JSR 
BCS 
BCC 


ZDY 


BCLCLE 

43 

READ BUF,X 
CLEF, X 
READ_BUF, X 
BCL2 


#2 


; codage 


‘restaure position 


POSITION, Y ;pour écriture 


SGET+2, Y 
BCLPOS1 
#SETMARK 


GOSYSTEM 
ERREUR 


#NRITE 
GOSYSTEM 
ERREUR 
LOOP 


#4 


;et repositionne 
;le pointeur 


sréécrit fichier 


;reprend longueur 


BCLGETI1 


CCMMAN D 
CLEF 
POSITION DS 
LONGUEUR DS 


LDA 
STA 
DEY 
BNE 


LDA 
JSR 
BCS 


LDA 
UMP 


BRK 


ASC 
Ds 





LONGUEUR, Y ‘car on a écrit 


SGET, Y «N x 4 octets 
BCLGETI1 

#SETE®F sremet à jour 
GOSYSTEM /longueur 
ERREUR 

#CLOSE ferme fichier 
GOSYSTEM sterminé 
ICRTETEN 

4 

3 


4 


FIN-START+$100 










L$28D 





2000:AD 
2008:87 
2010:05 
2018:21 
2020:A9 
2028:90 
2030:8E 
2038:21 
2040:21 
2048:74 
2050:00 
2058:A4 
06009 
2068:04 
Ar 06 
2078:85 
2080:84 
2088:84 
2090:08 
2098:8D 
20A0:8D 
20A8:F0 
20B0:AD 
20B8:68 
20C0:58 
20C8:B9 
20D0:BF 
20D8:E D 
20E0:A5 
20E8:E8 

























00 
4C 
A9 
69 
0E 
F6 
07 
AQ 
85 
A9 
B1 
253 
21 
65 
2Fà 
49 
3€ 
42 
BE 
FB 
Ix(E; 
47 
FD 
29 
BF 
19 
AD 
FD 
3D 
8A 


BE 
ED 

15 

00 

ac 
AE 
21 

00 
3€ 
21 

48 
CO 
90 
3C 
85 

DO 
85 
88 
85 
20 
20 
AD 
20 
07 
DO 
20 
EC 
20 
DO 
60 


Récapitulation 
‘KRUPTOS’ 


Après avoir saisi cette 
récapitulation sous moniteur, 
vous la sauvegarderez par : 
BSAVE KRUPTOS,AS 2000, 


4C 
AD 
09 
98 
BE 
BE 
07 
07 
38 
49 
27) 
DO 
CD 
48 
AS 
A0 
18 
JE 
C8 
74 
3D 
20 
4A 
B9 
AS 
58 
38 
FYB, 
18 


05 

BE 
AD 
90 
02 
08 
8E 
48 
04 

48 

8E 
B1 

2 

48 
69 
A9 
04 

Eha 
2C 
69 
FE; 
FD 
4A 
20 
DO 
9D 
FD 
DO 
FD 





20F0:B9 38 

20F8:04 02 

2100:D8 A9 

2108:AD 6C 

2110:85 49 

2118:22 DO 

2120:88 88 

2128:0F BF 

2130:54 BE 

2138:4C 21 

2140:AD 39 
A9 2148:38 6C 
FO 2150:06 AD 
04 2158251006 
05 2160:2F FO 
21 2168:04 FO 
BE 21702A2 100. 
06 2178:C8 E8 
E9 2180:82 22 
85 2188:8A 7D 
A0 2190:22 E8 
F8 2198:22 CA 
48 21A0:BE 8D 
BO 21A8:6D BE 
38 21B02A51 13 
00 21B8:A5 74 
21 21C0:/70"BE 
DIT 21C8:0F FO 
AD 21D0:FF F0 
FE 21D8:BO 4E 
04 21E0:8D C7? 
20 21E8:8D D7 
20 21F0:A9 D1 
AA 21rF8:04 B9 
3D 2200:D0 F7 
09 2208:CP.20 
58 2210:B9 C8 
20 2218:F7 A9 
DO 2220:C9 05 
20 2228:4C 0C 


223082 









00 
CA 
99 
20 
70 
B9 
1 
A9 
59 
00 


02 
10 
C8 
70 
BE 
89 
A9 
CC 
50 
00 


2238:CA 
2240:5D 
2248:F4 
2250:BE 
2258:BE 
2260:B0 
2268:22 
2270:D0 
2278:4C 
2280:54 
2288:00 


10 
82 
AC 
88 
BO 
C6 
99) 
20 
70 
45 
00 


FA 
22 
02 
10 
CD 
90 
C& 
70 
BE 
00 
00 


Apple & Minitel 


caractères semi-graphiques 


À titre d'illustration de 
l'exploitation des caractères 
semi-graphiques du Minitel (voir 
page 10), voici un modeste 
programme Basic qui fonctionne 
sur tous les Apple // muni d'une 
carte série en slot 2, configurée 
ainsi : 1200 bauds, parité paire, 7 
bits de données et 1 bit de stop. 
Le câble de liaison décrit dans les 
précédents numéros conviendra. 


Programme GRAPH.VIDEOTEX 


19 PRINT CARS 
20 PRINT CHRS 
30 GOSUB 100 
40 PRINT CHRS 
S0 GOSUB 100 
60 PRINT CHRS 
70 PRINT CHRS (4) "PR#0T: H@ME : END 
100 FORT 32 TO 63: PRINT CARS (I 
J;: NEXT ; FOR I = 95 TO 126: PR 
INT CHR$S (I): NEXT ;: PRINT CA 
RS (13) CHRS (10): RETURN 


{4) TPRI2" 
{12} CHRS (14); 


f27/ CHRS (90); 


(15) 





Serge Cattan 


Le SIMPLEXE est un algorithme 
permettant la résolution des pro- 
blèmes de programmation linéai- 
re, qui consiste à rechercher 
l'optimum d'une fonction linéaire 
à plusieurs variables liées par des 
équations ou des inéquations. 


Développé en 1947 par Dantzig 
de l'US Aïr Force, cet algorithme 
est maintenant utilisé largement 
par les économistes et techniciens 
pour résoudre les problèmes les 
plus divers affectation de 
personnel, préparation de 
mélanges industriels, stockages, 
etc. 


Le programme SIMPLEXE 
reprend cet algorithme. Prenons 
l'exemple d'un pâtissier qui 
désire confectionner des soufflés 
au chocolat, des quatre-quarts et 
des mousses au chocolat (fichier 
PATISSERIE de la disquette 
Pom's 29). I] dispose de sucre et 
de chocolat en quantités limitées, 
et chaque type de gâteau est 
vendu à un prix différent. 
Combien de gâteaux de chaque 
type le pâtissier doit-il 
confectionner pour trouver un 
bénéfice maximum ? 


Il faut 40 grammes de sucre par 
soufflé, 20 grammes par 
quatre-quarts et 50 grammes par 
mousse. Notre pâtissier ne 
dispose que de 2 kilos de sucre. 


Pour le chocolat, les valeurs 
respectives sont 10, 28 et 40 ; il 


Programme ‘SIMPLEXE 


n'y a qu'un seul kilo de chocolat 
disponible. 


Soient x1, x2 et x3 les variables 
représentant le nombre de 
soufflés, quatre-quarts et 
mousses. Nous avons donc les 
CONTRAINTES : 


40 x1 + 20 x2 + 50 x3 <= 2000 
10 x1 + 28 x2 + 40 x3 <= 1000 


Ces contraintes sont du type 
“inférieur ou égal”. Il peut 
également exister des contraintes 
de type ‘supérieur ou égal” ou 
simplement “égal”. 


Le bénéfice de notre pâtissier est 
respectivement de 20, 20 et 40 
centimes par type de produit. 
D'où la FONCTION 
ECONOMIQUE : 


20x1 + 28 x2 + 40 x3 


Cette fonction doit ici être 
maximisée ; pour d'autres exem- 
ples, elle pourrait être minimisée 
(si elle représentait un coût de 
fabrication). 


Le programme SIJMPLEXE 
permet d'éditer toutes ces 
données numériques et calcule le 
nombre de gâteaux à confec- 
tionner, compte tenu des 
contraintes, pour obtenir le plus 
grand bénéfice. Ici, il faudrait 
produire 27 soufflés et 18 
mousses (tant pis pour les 
amateurs de quatre-quarts !). 





Simplexe 


Les données peuvent être 
sauvegardées sur disque pour être 
modifiées plus tard. Les résultats 
peuvent également être sorties sur 
une imprimante Epson RX80 
(l'adaptation à d'autres impri- 
mantes ne pose aucun problème). 
Le programme, s'il donne entière 
satisfaction pour la résolution des 
problèmes posés, est cependant 
volontairement limité à l'ossature 
afin d'alléger sa lecture, et ne 
comprend donc pas les multiples 
routines de gestion des erreurs 
possibles de saisie. A vous de le 
compléter suivant vos goûts. 


C 
Fichier 
‘PATISSERIE" 





RARHARALAARARRAARLAARAAARALLX EE 


Afin de faciliter la saisie, les espaces situés …. pin 4 TS M ue ee 
CASIO OC NANNESITOICS ACIÉ RESORTS, EL ee ne ms 
remplacés par des puces (7. " 
170 D$ = CHR$ (4) 

100 REM #*##X####44444AAAE EEE AAA EE RÉEL 180 HOME 

CES LS RRRSSSE SE LES SELS ESS LS SSL ESS 190 INVERSE : PRINT SPC{ 40) 
110: 200 PRINT "“essveoscssense-ALGORITHME*DU-SIM 
120 REM CATTAN Serge ALGORI PLEXE*0°0000!} 

TAME DU SIMPLEXE 09/85 210 PRINT SPC( 40) 
30m? 220 NORMAL 
140 REM #*#*#*#X#AAAAAAAEAAAXAEEEX EEE EEE XX 230 POKE 34,4: VTAB 8 
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240 


250 


260 


270 


280 


290 


300 


310 


320 


330 


340 


350 


360 


370 


380 


390 


400 


410 


420 


430 
440 


450 


460 
470 


480 


490 
500 


510 
520 


530 
540 
550 
560 
570 
580 
590 
600 


610 


620 


PRINT "ANALYSE D'UN°PROBLEME °..veee— 
—>e1" 

PRINT "REPRISE °ANALYSE-EXISTANTE"+°.— 
—->e2" 

PRINT "MODIFICATIONS °DES*DONNEES ve — 
EN 

PRINT "MODE°D'EMPLOIesseresesvosses 
De A 

PRINT MRETOUR-AU-BASTCiele ejersie eleeeieia ie — 
-D>e.e5" 

POKE 36,11: VTAB 18: INPUT "VOTRE®CH 
OIXe°?7e";RS:R = VAL (R$) 


ON R GOTO 340,320, 4240, 3490, 330 
GOTO 290 

GOSUB 2540: GOTO 990 

POKE 34,0: END 

HOME 

VTAB 23: INPUT "NOM°DE°L'ANALYSE®(e? 
°POUR°LE°CATALOGUE ° ) °7e";NES 
IF LEN (NES) < 1 OR NES = 

PRINT DS;:MCATALROG":\GOTO 350 

PRINT : INPUT "NOMBRE®D'INCONNUES°?e 
"NS 
N = VAL (NS): IF N = O0 THEN PRINT " 
eUN°CHIFFREs>eQ0eS,V.P,": GOTO 370 
PRINT INPUT "NOMBRE °DE°CONTRAINTES 
eDU° TYPE s<=e70";T1S: PRINT 

IF LEN (T1$) = O0 THEN TIS = "e" 
DIV AL (TISNE TE ASC (TIS) < 48e 
R ASC (TI$) > 57 THEN PRINT "°UN°CH 
IFFRE°S.V.P.": GOTO 390 

PRINT : INPUT "“NOMBRE°DE+CONTRAINTES 
eDU°TYPEv>=e70";:T2S: PRINT 

IF LEN (T2$) = 0 THEN T2$ = "e…" 
ME VAL (TES) TE NN ASCN(TESNN SNA 810 
R ASC (T2$) > 57 THEN PRINT "°UN°CH 
IFFRE°S.V.P,": GOTO 420 

PRINT : INPUT "NOMBRE*-DE+CONTRAINTES 
eDU°eTYPEe=e70"";T3S: PRINT 

TE LENC(TIS)E = NONTHENNTSEN =" 
TOM NTAIN (TON) TEASER) 418 0 
R ASC (T3$) > 57 THEN PRINT "°UN°CH 
IFFRE°S.V.P,": GOTO 450 
DI CENT + TO ENTS ID = NE DINNT2N 
fi 

GOSUB 510: GOTO 540 


MT EN 


IF ME = 1 THEN RETURN 
DIM PG(D1,D2), BA(D1}),EC(2,D2),A(D1), 








Al(D1) 
ME = l: RETURN 

REM === ====-=========== 
REM SAISIE 

HOME 

IF T1 = O0 THEN 670 

FOR K = 1 TO Ti 

PRINT K; 

IF K = 1 THEN PRINT "IERE*CONTRAINT 


E°DU°TYPEe+<=e:": PRINT : GOTO 620 


PRINT "IEME°+CONTRAINTE °DU°TYPE=<=e:" 
SPRINT 
FOR J = 0 TO N - 1 


630 


640 
650 


660 
670 
680 
690 
700 
710 


720 


730 
740 


750 
760 


770 
780 
790 
800 
810 
820 


830 


840 


850 


860 
870 


880 


890 


900 


910 
920 


930 
940 
950 


960 
970 


980 
990 


PRINT "COEFFICIENT-DE°X";J + l;: INP 
UT "e=+7?0"";BS:B = VAL (B$):PG(K - 1, 


J) = B 

NEXT J 

INPUT "VALEUR °DU + SECOND °MEMBRE°=e7e" 
‘B$:B = VAL (B$):PG(K - 1,D2) = B: P 
RINT 

NEXT K 

IF T2 = 0 THEN 780 

L1 = + I :L2 = T2 + Ti 

FORMAT ATOUT? 

PRINTSRENTIEr UT 

IF K - L1l + 1 = 1 THEN PRINT "IERE:- 
CONTRAINTE °DUeTYPEs>=e:": PRINT : GOT 
00730 

PRINT "IEME-CONTRAINTE®DUeTYPE®>=e:" 
: PRINT 

FOR J = 0 TO N - 1 

PRINT NCOERPAICRENT:e DES RMET ENT EAN TNEP 
UT) Meet =  TVAL (PS): PE(R — 1,7 
}) =8B 

NEXT J 

INPUT "VALEUR°DUeSECOND °MEMBRE °=e7e" 
;BS:B = VAL (B$S):PG(K - 1,D2]) = B: P 
RINT 

NEXT K 

IF T3. = 0 THEN 890 

LL = DIT NT]: E2 =0T1 + TA + T3 


FOR K = L1 TO L2 
PRINT Ke = ut 1; 


TENRENTARCERTN = UN RAEN NP RINTINTE RE 
CONTRAINTE®DUeTYPE»==e;e"; PRINT : GOT 
© 840 

PRINT "IEME°CONTRAINTE °DU°TYPEe=e:e" 
SPRINT 

EORMTSNOUNTO NN = 1 


PRINTMCOEFFICIENT-DEeX";J + l;: INP 


UT "e=e?e";:BS:B + VAL (B$):PG(K - 1, 
J) =B 

NEXT J 

INPUT "VALEUR ®DU°SECOND MEMBRE +=e7e" 
;B$:B = VAL (B$):PG(K - 1,D2) = B: P 
RINT 

NEXT K 
Al = N + T1 - l:A2 = Al + T2:A3 = A2 
+ T2:A4 = A3 + T3 

PRINT "FONCTION-ECONOMIQUE ° :e": PRIN 
“à 

FOR J =1 TON 

PRINT "COEFFICIENTeDE+X";J;: INPUT " 
e—e";BS$S:CX = VAL (B$) 
Bet — A] = 

NEXT J 

PRINT : PRINT "TAPER°-1-POUR°UNE MINI 
MISATION": HTAB 7: PRINT "2ePOUR°UNE+ 
MAXIMISATION": PRINT : HTAB 7: INPUT 
MOS 
MO = VAL (MOS$) 


DEUMON< DINANDEMOLS > 2 THEN "PRIT 
NE N ELASEN  PRINTIMTeOUEP es VE PE MEN 
ORMAL : PRINT : GOTO 950 

IF R < > 2 THEN GOSUB 2180 

232 = 1E - 5 
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1000 
1010 


1020 
1030 
1040 
1050 
1060 
1070 


1080 
1090 
1100 
1110 


IF MO = 2 THEN MO = - 1 


PRINT : FLASH : PRINT "CALCUL-EN°CO 
URSe,.,,": NORMAL 

REM ============================ 
REM  INIT VARIABLES AUXILIATRES 
REM =========================== 

IF T1 = O0 THEN 1090 

EORUT = INTRO TA 

PG(J - 1,N + J - 1) = 1:BA(J - 1) = 
NET 1 

NEXT J 

IF T2 = O0 THEN 1130 

EORVUE—- 1 TONT? 

PG(J + T1 —- 1,A1 + J) = - l:PG(T + 
TI — 1,A2 + J) =" 1: BA(TNENMEE 1) 
22 +J 

NEXT J 

IF T3 = 0 THEN 1170 

EOR"Jr =" 1 TO"T3 

PG(J + T1 + T2 - 1,A3 + J) = 1:BA(J 
HÉTIOL TP 1) = AS EU 

NEXT J 

IF T2 + T3 = 0 THEN 1440 

FOR J = 0 TO N + T1 + T2 = 1 
(5 0 

FOR I = T1 TO D1 
S = S + PG(I,U) 

NEXT. I 
EC(0,J) =S 

NEXT J 
EC(0,D2) = 0 

HORMIN=AT 1 ROPDI. 

EC(0,D2) = EC(0,D2) + PG(I,D2) 

NEXT I 
EX = 0:CO = 1 

GOSUB 1790 

IF RE = 2 THEN 1660 


TE EC(0}.DP)" > 77 THEN"1670 
vV = 0 


FOR C = O0 TO D1 
IF BA(C) > A2 THEN V = 1 
NEXT C 


IF V = 1 THEN 1680 
FOR J = ÀA2 + 1 TO A4 


FOR I = O0 TO Di 

PG(I,J) = 0 

NEXT I 
EC(0,J) = O:EC(I1,J) = 0 

NEXT J 
EX = 1:CO = MO: GOSUB 1790 

IF RE = 2 THEN 1670 

HTAB LS PRITNTAMNER IEEE AA ND PÉTINTe 
REM ===========2---——- = 








REM AFFICHAGE PROGRAMME OPTIMAL 


GOSUB 2110: REM ON IMPRIME ? 
HOME : PRINT 

PRINT "BASE eDE°DONNEES - :e"};NES 
PRINT “==================";: PRINT 
PRINT "SOLUTION*-OPTIMALE»*POUR°-:": 
RINT 

FORT = IC TONN 

FOR J = 0 TO D1 


2 


15/7240 


1580 
1590 


1600 
1610 
1620 
1630 
1640 
1650 
1660 


1670 


IF BA(J) = 
"eme"; PG(J, D2):A(I - 1) 
GOTO 1600 

NEXT J 
PRINT 
NEXT I 
PRINT 
2 
PRINT : PRINT CHRS (15): GOSUB 303 
0: REM AFFICHAGE EQUATIONS 
PRINT CHRS (18): REM RETOUR 
OLONNES 

GOSUB 2160: POKE 34,0: PRINT DS; "PR 
#0": PRINT : RUN 

REM ======2=--22=====2=---— 
GOSUB 2110: HOME : PRINT "CE+PROBLE 
ME°N'A-PAS-DE-SOLUTION°OPTIMALE": PR 
INT : GOTO 1610 

GOSUB 2110: HOME : PRINT 
ME°N'A+PASe°DEeSOLUTION - DU° TOUT": 
NT : GOTO 1610 

FOR JJ = 0 TO A4 

IF EC(0,JJ) > ZZ THEN 1740 

FOR I = 0 TO DI 

EG = 0 

NEXT I 
EC(0,JJ) = 
NEXT JJ 
GOTO 1440 
REM 
REM ALGORITHME DU SIMPLEXE 
REM 
MA = 23% 

FOR J = 0 TO D2 - 1 

IF MA < EC(EX,J) * CO THEN MA = 
BJ ANCO Ji = UT 


TI N THEN PRIIN TAUX ET 
= PG(TJ,D2): 


Duo pe Me—e(0" 


Cttttktttt At 


: HTAB 15: PRINT 


80 C 


"CE°ePROBLE 
PRI 


O:EC(i1,JJ) = 0 


EC( 


NEXT J 

IF MA = 32 THEN RE = 1: RETURN 
MI = 1E20 

FOR I = O0 TO DI1 
A = PG(I,J1) 

IF À < 2Z THEN 1900 
R = PG(I,D2) / A 

TEUR < MINTHEN MI = R'TIIN= I 
NEXT JI 

IF MI = 1E20 THEN RE = 2: RETURN 
BA(I1) = Jl:PI = PG(I1,J1) 

FOR J = O0 TO D2 

PG(I1,J) = PG(I1,J) / PI 

NEXT J 

FOR I = 0 TO D1 

IF 11 = I THEN 2020 


B1 = PG(I,J1) 

FOR J = 0 TO D2 
PG(I,J) = PG(I,1MJ) 
NEXT J 

NEXT I 

B1l = EC(EX,J1):B2 = EC(EX + 1,J1) 
FOR J = O0 TO D2 


> Bl ®PG(T4,U) 


EC(EX, J) = EC(EX,J) - B1 * PG(I1,J) 
EC(EXN-OPTUIN=NEC(EXNE LT) NE NBP XEE 
G(I1,J) 

NEXT J 





2080 
2090 
2100 
2110 
2120 


2130 


2140 
2150 
2160 


2170 
2180 
2190 
2200 
2210 
2220 
2230 


2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2 0 
2520 
2530 
2540 
2550 
2560 


2570 


2580 


2590 


2600 
2610 


GOTO 1790 

REM = 
REM IMPRESSSION RESULTAT ? 

REM =======================2==2== 
PRINT: 








INPUT "VOULEZ-VOUS + IMPRIMER 
CES °RESULTATS«?";RS 
IF LEFT$S (R$,1) = 
PRINT D$;"PR#1" 
RETURN 

REM 
IF IM = 0 THEN POKE 36,0: 


SOUMAHEN CT MN= Ur 


VTAB 23: 








PRINT “"APPUYEZ SUR °UNE ° TOUCHE POUR: 
LA SUITE. 'MGETUCS 

RETURN 

REM SAUVEGARDE SUR DISQUE 

REM 

PRINT 

PRINT D$;"OPEN";NES 

PRINT D$; '"WRITE";NES 

PRINT N: PRINT Tl: PRINT T2: PRINT 
TS) 

PRINT Di: PRINT D2 

IF Ti = OC THEN 2320 

FOR K = 1 TO\UTI 

EOR IE NO TONN. 1 

PRINT PG(K - 1,J) 

NEXT J 

PRINT PG(K - 1,D2) 

NEXT K 

IF T2 = 0 THEN 2400 
DIN=NTA CR l''DEU= TE UT 


FOR'‘K = Li TO I? 

FOR J = 0 TO N - 1 
PRINT PG(K - 1,U) 
NEXT J 

PRINT PG(K - 1,D2) 
NEXT K 

IF T3 = 0 THEN 2480 
DIN = TI RNTEN AT E TAN 
FOR K = Li TO L2 

FOR J = 0 TON - 1 
PRINT PG(K - 1,J) 
NEXT J 
PRINT PG{K - 
NEXT K 

FOR J = 1 TON 

PRINT EC(1,J — 1) 

NEXT J 

PRINT MO 

PRINTeBS -MCLOSE/! 

RETURN 

REM LECTURE ENREGISTREMENT 

REM === ———— 

VTAB 23: INPUT "NOM+DE+L'ANALYSE® (+ 
?ePOUR°LEeCATALOGUE +) °?#";NES 


TINENTE CEST 


1,D2) 





IF LEN (NES) < 1 OR NE$ = “?" THEN 
PRINT D$;"CATALOG": GOTO 2560 

HOME INVERSE : POKE 36,8: VTAB 23 

: PRINT "ANALYSE*FICHIER®...'";NES$: N 

ORMAL 

PRINT 


PRINT) D$; "OPEN'"':NES 
PRINT D$; "READ'"; NES 


2620 


2630 
2640 
2650 


2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 


2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 


3060 
3070 


3080 
3090 
3100 


3110 
3120 
3130 
3140 


3150 
3160 
3470 





INPUT N: INPUT Ti: INPUT T2: INPUT 


8) 
INPUT D1l: INPUT D2 
GOSUB 510 
Al = N + Tl - 1:A2 = ÀA1 + T2:A3 = A2 
TATAAAN=N AS CENTS 
IF Tl = 0 THEN 2730 
FOR K = 1 TO T1 
FOR J =0TON -1 
INPUT PG(K - 1,J) 
NEXT J 
INPUT PG(K - 1,D2) 
NEXT K 
IF T2 = O0 THEN 2810 
DIN ENT EMAIL 2E=NT2MENTL 


EOR"K ="L1 TOLE?2 
FOR J = 0 TO N - 1 
INPUT PG(K - 1,1) 
NEXT J 

INPUT PG(K - 1,D2) 
NEXT K 

IF T3 = O0 THEN 2890 
TAIN=ENRINE ATEN: L 2 ue 
FHOR+K = L1 TO m2 
FOR JT = 0 TO N - 1 
INPUT PG(K - 1,J) 


TANT UT 











NEXT J 

TNPUTAPEGIKe = 4, D2) 

NEXT K 

FOR J = 1 TON 

TINEUTAECId, Je, 1) 

NEXT J 

INPUT MO 

PRINT D$; "CLOSE" 

RETURN 

REM TRAITEMENT ERREUR=======22--- 
REM 

IF PEEK (222) = 5 THEN VTAB 10: P 
RINT "FICHIER*INEXISTANT": GOTO 2990 
PRINT “ERREUR" 

FOR IT = 1 TO 1000: NEXT 

POKE 34,0: GOTO 180 

RETURN 

REM = 

REM LISTE DES DONNEES 

REM =============ez== 


GOSUB 2600: REM RECUP INFOS FICHIE 
R 


PRINT M"EQUATIONS°DU»TYPE»<e:" 

BR RPNT RME EE RER TONI 
Hs 

EORVK==" 1 TO TL 

FOR J = 0 TON -1 

PRIINTMEG( Ke TC) Mer NRT RU 


NUIT HENENPRITNINNe Fe 


Al(K) = PG(K - l1,J) * A(J) + Al(K) 
NEXT J 

PRINT Me <e MS PGI, = 1,D2) 

PRINT “VALEUR°CALCULEE®:";Al(K): PR 
INT 

NEXT K 

IF T2 = 0 THEN 3280 
Li = Tl + l:L2 = T2 + Ti 
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3180 
3190 


3200 
3210 
3220 


3230 
3240 
3250 
3260 


3270 
3280 
3290 
3300 
3310 


3320 
3330 
3340 


3350 
3360 
3370 
3380 


3390 
3400 


3410 


3420 
3430 


3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3570 
3540 
3550 
3560 


3570 
3580 


3590 


3600 
3610 
3620 
3630 





PRINT "EQUATIONS °DU°TYPE°>e:" 


PRINT ": PRIN 
m 

EORERK RE INTONLE) 

FOR J=0TON-1 

PRINT PG(K - 1,J);"ex";]J + l1;: IF J 
< N - 1 THEN PRINT “e+e"; 

Al(K) = PG(K - 1,J) * A(J) + Z1(K) 


NEXT J 

PRINT "“o>e "RPG KID 2) 

PRINT "VALEUR°CALCULEE®°:";AIl(K): = 
INT 

NEXT K 

IF T3 = O0 THEN 3400 

Li = T1 + T2 + 1'L2 = TION 


nt] 


PRINT "EQUATIONSeDU+TYPEe=e ;" 
PRINT "=" “; PRIN 
T 

FOR K = L1. TO L? 

FOR J=0TON-1 

PRINT PG(K - 1,J);"ex";J + 155 DEN 
€ N - 1 THEN PRINT "ete"; 
A1(K) = PG(K - 1,J) * A(J) + Al(K) 


NEXT J 

PRINT Me eU"PG(K = 102) 

PRINT "VALEUR°CALCULEE®-:";A1l(K): PR 
INT 











NEXT K 

PRINT : PRINT “FONCTION-ECONOMIQUE + 
IF MO = 1 THEN PRINT “POUR°UNE+MIN 
IMISATION.": GOTO 3430 

PRINT “POUR-UNE+MAXIMISATION. “ 
PRINT “ 

FOR J = 1TON 

PRINT EC(1,J - 1);"ex";gi"et; 

NEXT J 

PRINT : PRINT "VALEUR-DEeLAe-FONCTIO 
NeECONOMIQUE °=°";EC(1,B2) 

RETURN 

REM MODE D'EMPLOI =========== 

REM ========2=>- === 

HOME : PRINT : PRINT : SPEED= 140 


PRINT “L'ALGORITHME °DU°SIMPLEXE®°A°E 
TE" 

PRINT "DEVELOPPE-PAR°G.B.-+-DANTZIG*E 
N°1947." 

PRINT "ILeS'AGITeD'UN°OUTILeDE+CALC 
UL°TRES" 

PRINT "UTILISE®+D'ABORD °PAR°LESeMILI 
TAIRES, " 

PRINT “PUISePAR°LES°ECONOMISTES°ETe 
RES? 


PRINT “INDUSTRIELS.": PRINT 

PRINT “LES °APPLICATIONS SONT NOMBRE 
USES EE; PRINT 

PRINT “-PREPARATION °DE°MELANGES °IND 
USTRIELS, " 

PRINT "-AFFECTATION°-DE°PERSONNEL, " 

PRINT “-PLAN°DE+PRODUCTION, 

PRINT “-INVESTISSEMENTS*+ETC. " 

PRINT 
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EE SO OR OC 


PRINT “POUR°SITUER°eLE PROBLEME, NOUS 
-PRENDRONS" 

PRINT “L'EXEMPLE °D'UN°PATISSIER"®-QUI 
*DESIRE 

PRINT "CONFECTIONNER°DES+eSOUFFLES °A 
U-CHOCOIAT, “ 

PRINT DES °eQUATRE-QUARTS, ETeDESeMOU 
SSESe Ur 

ERENF"CEOCOEE FT." 

FSINT TV" OUR*CELA, IL-DISPOSE-DE°SUCR 
E-ET-LE" 

PRINT P"ESOCCERT-EN-QUENTITES LIMITE 
ES, MIS 

PRINT "SANS-LIMITY2TIN-PCER- IL -20T 
RES" 

PRINT "INCGREDIENES." 

PRINT "DE°PLOS, CEE "STE MP-ES TRE 
NDU-A-UN" 

PRINT "PRIX°QUIe TIENNE EC 
TeDES? 

PRINT ‘DIVERS NE RER CC PR 

INVERSE : PRINT "PROBEERE-- > D 
L 

PRINT "COMBIEN°LEe°CEPE ere CEE 
TYPE 


PRINT "LE°PATISSIER*°DOITer ===> 
T+VENDRE" 

PRINT "POUR°-EN°TIRER°-UN°PROFIT-MAXI 
MALe?" 


PRINT "LES -+MATIERES-PREMIERES*SE*RE 
PARTISSENT" 

PRINT "AINSI-:": PRINT 

PRINT "POUR-LE+SUCRE® :" 

PRINT "40°GR. *POUR-LES °QUATRE-QUART 
si 

PRINT “20+GR. :POUR*LES*SOUFFLES, " 

PRINT “50°GR. -POUR°LES-MOUSSES . " 

PRINT : PRINT : PRINT "POUR-LE+CHOC 
OLAT-:" 

PRINT "10°GR. -POUR-LES+QUATRE-QUART 
Le 

PRINT “28 +GR. :POUR-LES*-SOUFFLETS, 

PRINT “20+GR. ®POUReLES*MOUSSES . " 


PRINT : PRINT “LEePOIDS+DE°SUCRE®+DI 
SPONIBLE*-ESTe2000°GR." 

PRINT "LE*+POIDS °DEe CHOCOLAT*-ESTe-100 
0°GR." 

PRINT : PRINT "LES+INCONNUES ®°SONTeL 
ES°GATEAUX. " 


PRINT "LES *EQUATIONS °POUR°CE°PROBLE 
ME ° SERONTe:": PRINT 

PRINT “40XI1°+e20X2°+e50X3°<=e2000" 

PRINT "IlOX1e+°28X2°+°40X3°<=°1000" 

PRINT : PRINT “LES+EQUATIONS eQUI°SO 
NTeTETeDESX 

PRINT "INEGALITES eSONT*APPELEES CON 
TRAINTES. " 

PRINT "ELLES °PEUVENTeETRE °DE °3°TYPE 
Si PRINT 

PRINT "e-INFERIEUR°OU°EGALe (<=) ," 

PRINT "e-SUPERIEUR°OU°EGALe (>=) ," 

PRINT "e-EGAL(=})." 

PRINT : PRINT "LESeVALEURSe+SITUEES ° 











4030 


4040 


4050 
4060 


4070 
4080 
4090 


4100 
4110 


4120 
4130 


4140 


4150 


4160 


4170 


4180 


4190 
4200 
4210 


4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 


4310 


4320 
4330 


4340 
4350 


4360 
4370 
4380 
4390 
4400 
4410 


4420 


A °DROITE*-DE" 

PRINT "L'EQUATION+S'APPELLENT + SECON 
DeMEMBRE. " 

PRINT : PRINT “D'AUTRE®PART,LE°BENE 
FICE*POUR°NOTRE " 

PRINT "PATISSIER°SERAeDE®e:" 

PRINT : PRINT "20°-CTS°PAR°QUATRE-QU 
ART, 


PRINT “20°CTS°PAR°SOUFFLE, " 

PRINT "40°CTSePAR °MOUSSE. " 

PRINT : PRINT “L'EQUATION®CORRESPON 
DANTE°SERA:": PRINT 

PRINT "BENEFICE®e=e20e+e20e+e40" 
PRINT : PRINT "CETTE®*EQUATION*-SEeNO 
MME + FONCTION" 

PRINT “ECONOMIQUE. " 

PRINT “LA-FONCTION-ECONOMIQUE °PEUTe 
ETRE" 

PRINT "MAXIMISEE, C'ESTeLE°CAS D'UN" 
BENEFICE" 

PRINT “COMME ° DANS °NOTRE ° EXEMPLE, °OU 
°MINIMISEE" 

PRINT “LORSQU'IL-S'AGIRA°D'UNe°COUT: 
PAR°EXEMPLE. “ 

PRINT : PRINT : PRINT "CE®+PROGRAMME 
°A°ETE°INSPIREePAR°-L'ARTICLE"; 

PRINT “DE°DANIEL+FERRO°PARUeDANSeLA 
REVUE" 

SPEED= 255 

PRINT SCIENCE’; ETeVTE," 

PRINT : PRINT “APPUYEZeSUR°UNE°TOUC 
HE°POUR°RETOUR* AU°eeMENU.": GET R$ 
HOME GOTO 230 

REM ======--===2==- 
REM MODIFICATIONS 
REM === 

HOME GOSUB 2540 

IF T1 = O0 THEN 4370 
FOR K = 1 TO T1 
PRINT : PRINT K; 

IF K = 1 THEN PRINT 
TE°DUSTYPE <<; PRINT: 








"IERE°eCONTRAIN 
GOTO 4320 


PRINT “IEME CONTRAINTE ®°DU°TYPE®<=e: 
W:N PRTANT 
FOR J = 0 TON - 1 


PRINT "COEFFICIENTeDEeX",;J + 1; "e—e 
CTNVERSEN FPRTNTSRE (KT, 7); NO 
RMAT, INPUT "s";B$:B = VAL (B$): I 
F LEN (B$) > 0 THEN PG(K - 1,J) =B 
NEXT J 


PRINT "VALEUR °DUeSECOND °MEMBRE®=e", 
INVERSE PRINT PG(K - 1,D2);: NOR 

MAL : INPUT “e";BS$S:B = VAL (B$): IF 
LEN (B$) > O0 THEN PG(K - 1,D2) =8B 
NEXT K 

IF T2 = 0 THEN 4480 

LINSETI CENTEL 2 =NTEL TE UTI 


FOR K = LI TO L2 
PRINTENPRINTPRENLCIEEE LT 


DEN KO TITI NINTHEN  PRINIUTERE 
CONTRAINTE °DU°TYPEe>=s:"; PRINT : G 
OTO 4430 

PRINT "IEME-CONTRAINTE °DU°TYPE®>=e: 


4430 
4440 


4450 
4460 


4470 
4480 
4490 
4500 
4510 
4520 
4530 


4540 
4550 


4560 
4570 


4580 
4590 


4600 


4610 
4620 


4630 
4640 


4650 


4660 


4670 


4680 


4690 


4700 


4710 


4720 
4730 





MP RINT. 
FOR J = O0 TON - 1 


BRINT MCOEFEICIENT-DEeX";J + 1: Me=e 
AS INVERSERNPRINTAEC(K 1, JT); NO 
RMAL INPUT “e'';BS:B = VAL (B$): I 


F LEN (B$) > O0 THEN PG(K - 1,J) =B 
NEXT J 

PRINT “VALEUR °DU+SECOND°MEMBRE °=°"; 
INVERSE : PRINT PG(K - 1,D2);: NOR 

MAL INPUT "e";B$:B = VAL (B$): IF 
LEN (B$) > O0 THEN PG(K - 1,D2) =8B 
NEXT K 

IF T3 = 0 THEN 4590 

HI TI CNTE ANT ET 2 
FOR K = LI TO L2 


DIET ENT 


PRINT BRINDERSENTALEE 1 ; 

TENKE NTI CEME=ISTHENS  PRTNT "TERE 
-CONTRAINTE®DUeTYPEe=e;e"; PRINT : G 
OTO 4540 

PRINT “IEME°CONTRAINTE®-DU°TYPE®=e:e 
DNPRTNT 

FOR J = 0 TON = 1 


PRINT "COEFFICIENTeDE®X",J + l;"e—e 
“2 TNVERSE : PRINT PG(K NI, J): : NO 
RMAL INPUT BS TEEVALN(BS ENT 
F LEN (B$) > O0 THEN PG(K - 1,J) = B 
NEXT J 


PRINT "VALEUR°DU-+SECOND*°MEMBRE°=e"}; 
INVERSE : PRINT PG(K - 1,D2};: NOR 
MAL INPUT "e!;:B$:B = VAL (B$): IE 


LEN (B$) > O0 THEN PG(K - 1,D2) =B 
NEXT K 


Al = N + Tl - 1:A2 = Al + T2:A3 = A2 
+ T2:A4 = A3 + T3 

PRINT : PRINT "FONCTION*ECONOMIQUE ° 
en P'RITINITE 


FOR J = 1 TON 


PRINT "COEFFICIENTeDEeX";J;"e=e";: 
INVERSE PRINT - EC(1,J - 1};:: NOR 
MAL HNPBUT Er et SUB MN VAL (BSIEU TR 
ELENS (IBS)| >NONTHENGEC(1,J = 4) = 
We) 

NEXT J 

PRINT : PRINT "TAPER?:1°POUR°UNE MIN 
IMISATION"“": HTAB 7: PRINT "2°POUReUN 
E+MAXIMISATION": PRINT : HTAB 7 

IF MO < > 1 THEN MO = 2 

PRINT "VALEURe°ACTUELLEe=e";;: INVERS 
E : PRINT MO; : NORMAL INPUT "°";MO 
S 

IF LEN (MOS) > O0 THEN MO = VAL (M 
o$) 


IF MO < > 1 AND MO < > 2 THEN PR 
INT SVELASH : PRINT "l1»*OUrePeS,V.P.": 
NORMAL PRINT GOTO 4640 

IF MO = 2 THEN MO = - 1 

PRINT : INPUT "VOULEZ-VOUS e D'AUTRES 
MODIFICATIONS °?";RS 
IF LEFTS (RS,1) = 
GOTO 4270 

GOSUB 2180 

POKE 34,0: RUN 


“O" THEN HOME 
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AppleWriter & /RAM 


Christian Piard 


AppleWriter ProDOS utilise les 
éventuels 64Ko de votre carte 80 
colonnes pour perrnettre le travail 
sur des textes plus importants : la 
mémoire disponible passe, avec 
la carte 80 colonnes étendue, de 
22269 caractères à 46845 soit un 
gain de 24Ko seulement. 


Source AW2 


Assembleur ProCODE 
* Source AW2 
ORG S$S2000+473 
LDA S$SBF98 ” 
AND #300010000 ; 
BEQ NORMAL : 
JSR SFCS8 ; 
LDY #0 ’ 
MESSAGE LDA MESS,Y 
BEQ MODIF 
JSR S$FDED 
INY 
BNE MESSAGE 
BIT $C010 
MODIF LDA SC000 r 
BPL MODIF 
AND #%11011111 ; 
EBTT  S$C010 
CMP #'"N" ; 
BEQ NORMAL ; 
CMP #''M" ; 
BNE MODIF ; 
LDA $SB2Fr98 5 
AND ##11101111 ; 
TAY 
RTS ; 
NORMAL LDY SBr98 
RTS 
MESS DFB SBD,S8D 
ASC ‘“AppleWriter.. 
DFB S$S8D 
A'SCMP 
DFB S8D, $8D, $8D 
ASC " <N>ormal ; 
DFB $8D,$8D 
ASC" <Modifié (3 
DFB $S8D 
ASC " 
DFB 0 


Dans certains cas, il peut être 
intéressant de renoncer à cette 
extension, afin de récupérer le 
disque virtuel 64Ko que ProDOS 
installe dans cette 80 colonnes. 
est possible, par exemple, d'y 
installer les fichiers de travail 
WPL et ceux auxquels il est 


[le 
1Je+ 


/e 
gs 

















charge MACHID 

a-t-on 128Ko ? 

non, on ne fait rien 
efface écran 

effiche message 


attend une touche 
en fait une majuscule 


si c'est N, 
change rien 
si ce n'est pas M, on 
boucle 

charge MACHID 

force à 0 le bit 5 


one 


; on revient 


46845 caractères" 
22269 caractères" 


+ 60928 en disque virtuel" 


fréquemment fait appel : les 
temps de traitement s'en 
trouveront considérablement 
réduits. 


Le principe 


Lors du ‘boot’, ProDOS effectue 
des tests concernant la 
configuration matérielle utilisée et 
note le résultat en $BF98, octet 
nommé MACHID. Voici le 
codage de cet octet : 


OOxxxOxx  Apole !! 

OfxxxOxx Apple ll+ 

10xxxOxx Apple //e 

11xxx0xx Apple / en émulation 
10xxxixx Apple cc 

xx01xxxx  48Ko 

Xx10xxxx  64Ko 

XX11xxxx  128Ko 

XXXxxxx0x pas de 80 colonnes 
XXXxxx1x 80 colonnes 
XxxxXXxx0 pas d'horloge 
xxxxxxx1  horioge compatible 


Par exemple, sur un Apple //e, 
avec une carte 80 colonnes 
étendue, sans horloge, on 
trouvera $B2 et sur un 64Ko0 : 
$SA2. 


H suffira donc de forcer à 0 le bit 
S pour indiquer à AppleWriter 
que l'on ne dispose que de 64Ko, 
les 64 qui restent serviront au 
disque virtuel. 


Le programme système AW 
SYSTEM, premier programme 
exécuté au lancement d'Apple- 
Writer, lance en fonction de 
MACHID : AWB.SYS, AWC 
.SYS ou AWD.SYS. C'est donc 
AW.SYSTEM que nous 
modifierons. 


En pratique 


Il convient de n'effectuer la 
modification que sur une copie de 
sauvegarde, sur laquelle au moins 
deux blocs seront disponibles. 
S'assurer en faisant le catalogue 





Pom's n° 29 


63 








64 


que la longueur de AW.SYSTEM 
est bien de 473 octets, sinon cette 
modification ne convient pas. 


Suivre les étapes suivantes : 


+ Booter sur la disquette Master 
ProDOS 

+ Mettre la disquette Apple Writer 

+ UNLOCKAW.SYSTEM 

+ BLOADAW.SYSTEM,A$2000, 
TSYS 

+ Mettre la disquette Pom's* 

+ BLOADAWI.C 

+ BLOADAW2C 

+ Mettre la disquette AppteWriter 

+ BSAVEAW.SYSTEM,A$2000, 
L$298,TSYS 


Maintenant, lors du démarrage 
sur AppleWriter, un message 
apparaît, vous invitant à choisir 
entre AppleWriter ‘normal’ et 
AppleWriter ‘modifié’. 

Le premier vous accorde 46845 
caractères, le second 22269 
seulement mais 60928 dans le 
disque virtuel dont le préfixe est 
‘/RAM’. 

Le message ne sera pas affiché si 
vous n'avez pas de carte 80 





colonnes étendue. 


* ou, sivous ne l'avez pas, mettez la 
disquette sur laquelle vous aurez 
sauvegardé les fichiers AW1.C et 
AW2.C listés ci-cortre. ä 





Source AW1 
Assembleur ProCODE 


* On remplace l'original 
* LDA $SBF98 

* par un saut à notre 

* sous-progranme 


ORG  $200D 
JSR $2000+473 








Récapitulation AW1.C 


Après avoir saisi ce code sous 
moniteur, veus le sauvegarderez 


par : BSAVE AW1C AS$200D,L3 


200D:20 D9 21 





Récapitulation AW2.C 


Après avoir saisi ce code sous monileur, 
vous le sauvegarderez par : 
BSAVE AW2.C,A$21D9,L$6F 


21D95 AD 98%Br% 2,9 40. F0 2€ 

21E0:20158 FC A0 00 B9 10 22 
23E8:FO0 09 20\ED\ FD C8 DOMFS 
21R0:2AC°10NCONAD 00 (CO 10.FB 
21029 DEK?GN 10 COL GOINCE F0 
21200:0B CINCDNDO EE AD 98, BF 
2208:29 EF A8 60 AC 98 BF 60 
2210:8DN8D1 C1 FO FO EC E5 D7 
22 182HP2NE'9PFA4UES F2 AE AE AE 
2220:8D DEDR DE DE DE DR DE 
2228:DHSDEFSDE DF DE DF DF 8D 
2230:8D 8D A0 A0 BC CE BE EF 
2238:F2 ED El EC AO AO BA AO 
2240:B4 B6 B8 B4 BS AO E3 E1 
2248:F2 El E3 F4 FD F2 ES F3 
2250:8D 8D AO AO BC CD BE EF 
2258:E4 E9 E6 E9 FB AO BA A0 
2260:B2 B2 B2 B6 B9 AO E3 El 
2268; F2 EINESV EI EDER? ES F3 
2270:8D AO A0 A0 A0 A0 AO AO 
2278:A0 AO AO A0 A0 AB AO B6 
2280:B0 B9 B2 B8 AO E5 EE A0 
2288 E4VE NRA FS EST AO "FE 
PASONE OMRPNRAINFSMES ECO 


Un programme WPL : 
Tabulations automatiques 


Si vous disposez de nombreux 
programmes assembleur réalisés 
sous DOS 3.3, il peut être 
nécessaire d'utiliser les sources 
sous un autre environnement 
(ProDOS, Pascal 1.2, etc.). 


Les assembleurs classiques (Big 
Mac, Lisa) permettent de sauver 
les sources sous format texte 
standard. Malheureusement, les 
tabulations sont converties en un 


seul espace, ce qui donne un 
résultat peu esthétique pour un 
traitement de texte et souvent 
incompatible avec des assem- 
bleurs qui ne suivent pas ce 
protocole : 


LDX #0 

LOOP LDA MSG, X 
JSR COUT ; $FDED 
FL1 DEX 

BPL LOOP 


Bernard Bel 


au lieu de : 

LDX #0 
LOOP LDA  MSG,X 

JSR COUT ; $SFDED 
FLI DEX 

BPL  LOOP 


Il serait donc fort utile de 
disposer d'une routine qui 
‘allonge’ le caractère espace pour 
créer une réelle tabulation. Le 
programme proposé ici est écrit 
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en WPL (Word Processing 
Language) disponible sur Apple 
Writer [l (versions DOS 3.3 et 
ProDOS). 


Utilisation 


l) Chargez, sous Apple Writer, 
le source à convertir ; 

2) Tapez CTRL-P puis DO 
WPL.TAB. C'est tout ! 


Si vous ne possédez pas la 
disquette Pom's, vous devrez 


saisir le programme, listé 
ci-dessous, puis le sauver sous le 
nom WPL.TAB. Attention: les 
lettres majuscules E,F,G,I,J,Z 
imprimées ici doivent être saisies 
comme des caractères de 
contrôle, et le caractère S comme 
un espace. 


Une petite précision sur la 
programmation avec WPL 

l'emploi du caractère "<” au lieu 
du classique "/" pour délimiter les 
chaînes de caractères recherchées, 
permet de représenter le 


tt 


retour-chariot par ">", et 





en tt 


d'utiliser "” et "=" comme jokers 
(wildcards) de longueur 1 ou de 
longueur quelconque. 


Cette routine ne résoud pas tous 
les cas possibles de conversion 
(par exemple les double-espaces 
dans un commentaire ou une 
instruction ASC seront mal 
traduits) maïs permet d'obtenir 
rapidement use hse dun source 
assembleur Qui comespond à celle 
obtenue habituellement sur 


imprimante. 
2 


E 





Programme ‘WPL.TAB’ del 





f<>J<>SSSS<a 
Attention: Remplacer les lettres E, F, G, I, J, Z PPE 
Ê sn ARR à TE 4 f>J<>SSSSS<a ProDOS | 
par les caractères de contrôle correspondants, Des j 
et S par des espaces. f>J>SSSSSS<a 
ppr 

e f<>J<>SSSSSSS<a 

pnd ppr 

ppr ÉC>JC>SSSSSSSS<a 

ppr ppr 

ppr << Correction de tabulations par WPL >> f/J=/S=/a 

ppr < Bernard Bel 2 ppr Patientez 

b f<>J<>SSSSS<a 
boucle f/SS/S/a ppr 

pgo boucle f/J/S/a 

ppr per 

f<sS>c><ca £/L/SSSSSSS/a 

ppr per 

É/=S/=2/a f/1/SSSSSS/a 

ppr Attendez... ppt 

f/S*/E*/a f/2/SSSSSSSS/a 

ppr ppr 

f<>>S<>>F<a f/E*E/SSSS*E/a 

ppr ppr Patientez encore un peu 

f<>>S<C>>F<a f<SE<SSSSSSSSSSSSSSSS<a 

ppr ppr 

f<>>S<>>F<a f<SE<SSSSSSSSSSSSSSS<a 

ppr ppr 

f<>>S<>>F<a f<SE<SSSSSSSSSSSSSS<a 

ppr ppr 

f<>>S<>>F'<a É<SE<SSSSSSSSSSSSS<a 

ppr ppr 

f/S/J/a f<SE<SSSSSSSSSSSS<a 

ppr Travail en cours por Presque fini... 

f<>>J<>>SSSS<a f<SE<SSSSSSSSSSS<a 

ppr ppr 

f<>>J<>>SSSSS<a f<SE<SSSSSSSSSS<a 

ppr ppr 

f<>>J<>>SSSSSS<a f<SE<SSSSSSSSS<a 

ppr ppr 

f<>>J<>>SSSSSSS<a F<>SSSSSSSSS<>SSSSSSSSSS<a 

ppr per 

f<>JJ<>ISSSSS<a pprGGG 

ppr pyd 

f<>J<>SS<a pat 

per 

fC>J<>SSS<a tie 
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Apple & Minitel : 
Ligne téléphonique ‘artificielle’ 


Que ce titre ne laisse pas sup- 
poser que nous avons découvert 
des lignes téléphoniques naturel- 
les. Il s'agit simplement de vous 
proposer un montage simple per- 
mettant de simuler une ligne 
téléphonique pour la phase de 
mise au point d'un serveur télé- 
matique, par exemple. Ou, pour- 
quoi pas, pour mettre en place un 
serveur interne ne dépendant pas 
du RTC, le Réseau Téléphonique 
Commuté. 


Le problème est le suivant : votre 
Apple fait fonction de serveur 
(avec un modem ou celui d'un 
Minitel) et vous souhaitez tester le 
travail, 


La méthode la plus simple — la 
plus coûteuse — consiste à dis- 
poser de deux lignes téléphoni- 
ques, l'une connectée à l'Apple 
serveur, l'autre au Minitel. Bien 
sûr, le temps des essais est dans 
ce cas taxé. 


Relier l'Apple serveur au Minitel 
à l'aide de la prise péri- 
informatique n'est pas d'un grand 
secours non plus, Car certaines 
fonctions du serveur sont alors 
inopérantes. 


Cette fausse ligne résoud le 
problème ; nous trouvons reliés : 
l'Apple, son modem serveur, no- 
tre ligne, le Minitel qui consultera 
son serveur. Elle résoud acces- 
soirement le problème familial 
que constitue à long terme l'oc- 
cupation du téléphone. 

C'est ce dispositif qui est décrit 
ici, après un bref rappel des 
notions de téléphonie sur les- 
quelles il s'appuie. 


Jean-Louis Chaulot-Talmon 


Circuit de liaison 
téléphonique 


La liaison téléphonique est cons- 
tituée de deux fils métalliques re- 
liant le poste de l'abonné deman- 
deur à celui de l'abonné deman- 
dé. Notre ligne sera donc cons- 
tituée, de façon analogue, de 
deux fils reliant les broches 1 et 3 
du Minitel aux broches 1 et 3 du 
modem micro-serveur. Toutefois, 
dans la communication réelle, les 
parties terminales d'un circuit — 
les lignes d'abonnés — assurent 
des fonctions complémentaires et 
il convient d'examiner celles qui 
incombent à la ligne de l'abonné 
demandé. 


Appel et supervision de 
l'abonné demandé 


Lorsque, conformément aux si- 
gnaux émis par le cadran ou le 
clavier d'appel du demandeur, le 
central téléphonique établit la liai- 
son avec le demandé, plusieurs 
opérations restent à effectuer : 


« alerter le destinataire en action- 
nant la sonnerie ; 

+ détecter le décrochage afin 
d'arrêter la sonnerie et... taxer 
le demandeur ; 

+ se mettre en mesure de détecter 
le raccrochage pour libérer les 
lignes. 


Les organes essentiels 
d'une ligne d'abonné 


Les deux fils L£J et L2 de la ligne 


sont réunis l'un à l'autre, à 
l'intérieur de la ligne téléphonique 


de l'abonné, de deux façons 

différentes : 

° d'une part, et de façon perma- 
nente, par une liaison compre- 
nant, disposés en série, un 
condensateur C (en général 2 
LF) et une sonnerie électroma- 
gnétique $ d'une impédance 
supérieure à 1800 Q, 

* d'autre part, mais seulement 
quand le combiné a été soulevé 
de son support (l'interrupteur 
CC est alors fermé), une liai- 
son métallique comprenant 
notamment les contacts d'im- 
pulsion du cadran d'appel 
(CA) — fermés au repos -, des 
enroulements d'une bobine 
d'induction /n et la résistance 
variable du microphone. 


Au repos, la ligne n'est parcourue 
par aucun Courant puisque : 


+ le poste est raccroché : la seule 
liaison présente entre les fils de 
ligne est la liaison condensa- 
teur/sonnerie, or la tension B 
est continue ; 

« l'interrupteur d'appel / est 
ouvert. 


Quand le moment est venu d'ap- 
peler l'abonné, l'interrupteur / se 
ferme, le courant alternatif À 
débite à travers le condensateur et 
la sonnerie... sonne. 


Dès que l'abonné décroche, l'in- 
terrupteur CC se ferme, le cou- 
rant B passe. 

Pendant toute la conversation, la 
ligne reste alimentée ainsi en cou- 
rant Continu, Courant qui sera MO- 
dulé par le microphone à l'image 
des signaux sonores qu'il reçoit. 


Au raccrochage, CC s'ouvre, le 
courant continu est interrompu. 
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Réalisation de la 
ligne artificielle 


Pour que les centraux téléphoni- 
ques puissent établir, maintenir, 
puis libérer la communication 
comme ils ont coutume de le faire 
pour une conversation normale, 
le modem simule aussi tous les 
états successifs d'un poste télé- 
phonique. Cela signifie, à l'inver- 
se, que la ligne artificielle doit 
reconstituer les fonctions 
essentielles — appel et alimenta- 
tion — d'une ligne d'abonné nor- 
male pour pouvoir déclencher les 
états successifs des modems en 
présence. 


Elle devra donc comprendre : 


+ une liaison métallique entre 
Minitel et micro-serveur (du fil 
et deux conjoncteurs norma- 
lisés PTT = 20,00 F); 

* une alimentation en courant 
continu. Compte tenu de la 
faible intensité nécessaire (15 à 
20 mA par modem), 4 piles 
plates de 4,5 V connectées en 


série avec une résistance ajus- 
table R1 conviendront ; 

* une alimentation en courant al- 
ternatif. Un transfonnateur de 
sonnerie d'appartement 220/ 
12v-50 mA convient ; 

* un bouton poussoir Ba pour 
envoyer, à la demande, le cou- 
rant d'appel sur la ligne artifi- 
cielle. Là encore une résistance 
ajustable de quelques centaines 
d'ohms servira à régler le 
courant débité lors d'un appel. 


Réglage de la ligne 


Un poste téléphonique ordinaire 
relié à l'un des conjoncteurs, 
ajuster la résistance RI pour que 
le courant continu envoyé vers le 
poste décroché, se situe entre 13 
et 17 mA (350 à 400 Q). 


Poste raccroché, ajuster R2 en 
appuyant sur le bouton d'appel 
jusqu'à ce que la sonnerie tinte 
très faiblement. Le courant sera 
alors d'environ 10 mA soit une 
valeur de résistance d'environ 


200 à. 


Le système est alors prêt ; il suffit 
de relier le micro-serveur à une 
extrémité et le Minitel à l'autre 
pour commencer les essais... 
gratuitement. 


DS 


A noter, 


….que certains modems à réponse 
automatique nécessitent 2, 3 ou 4 
trains de courant d'appel pour 
répondre. Selon le cas appuyer 2, 
3 ou 4 fois sur le bouton d'appel ; 


qu'avec la faible consom- 
mation, le pile auront une durée 
de vie substantielle ; 


que, lors de l'utilisation, le 
poste téléphonique est inutile et 
sert donc normalement sur la 
ligne téléphonique PTT (une 
source de conflits en moins) ; 


.…..qu'accessoirement, cette ligne 
artificielle permet de relier deux 
postes téléphoniques ordinaires, 
pour la plus grande joie des 
enfants. 





Central téléphonique: 


Abonné 


Schéma de principe Certral/Poste d'abonné 








+ Piles 
hhsuz 18V 
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Schéma de la ligne ‘aricielle’ 








Micro-informations 


Vous découvrirez dans le cahier Mac les 
petits derniers d'Apple : l’un, le *SE” 
fonctionne avec le processeur Motorola 
68000, l'autre, le ‘Mac IF véritable Mac 
‘ouvert’ avec ses six slofs pour cartes 
d'extension utilise un 68020. Mais 
d'autres nouveautés explosives concer- 
nent les communications et l'intégra- 
tion du Macintosh dans des entreprises 
utilisant des IBM petits ou gros. On n'a 
pas fin d'en entendre parler, car c'est 
tout le monde de la micro-informatique 
qui va en être bouleversé. 


Le nouveau 
serveur 


La première nouveauté (annoncée 
d'ailleurs dans le dernier numéro de 
Pom's), c'est le nouveau serveur. Il 
répond au doux nom d'AppleShare. Et 
est simplement constitué d'un logiciel 
qui wansforme un Mac en serveur dédié. 
Dédié, car ce Mac ne peut alors (et c'est 
bien dommage) plus faire grand chose 
d'autre, sinon faire fonctionner 
simultanément une autre application 
tout en jouant en arrière fond son rôle 
de serveur. AppleShare vaut aux 
États-Unis quelque 800 dollars et 
permet de servir 25 utilisateurs. Le 
plus, c'est qu'on peut interconnecter 
entre eux les serveurs. Apple utilise 
ainsi 20 Mac servant 450 personnes. 
L'une des possibilités les plus 
révolutionnaires d'AppleShare (baptisée 
multilaunching} consiste dans la 
possibilité donnée à plusieurs 
utilisateurs de pouvoir ouvrir 
simultanément une application installée 
une seule fois. Les éditeurs de logiciels 
vont sûrement faire une drêle de tête. 
L'autre caractéristique du serveur 
AppleShare c'est d'être intégré à la 
dernière version (la 5.4) du Finder. Pour 
les utilisateurs c'est parfaitement 
transparent. 


Il faudra que certains logiciels soient 
adaptés, mais d'ores et déjà, Tops de 
Centram (compagnie d'ailleurs rachetée 
par 3 COM qui se pose en spécialiste de 


Jean-Michel Gourévitch 


la communication sur Mac). Helix 
d'@desta, les produits de General 
Computer (comme l'Hyperdrive) et, à 
coup sûr, la nouvelle version de 4e 
Dimension tournent sous AppleShare. 


Le problème c'est donc que le Mac 
serveur ne peut pratiquement faire que 
cela. Ou presque. Car il peut faire 
tourner simultanément une application 
comme JInbox de Think 
Technologies. Inbox, c'est un 
fantastique programme de courrier 
électronique. On installe ce programme 
sur le serveur, puis sur le système de 
chaque utilisateur. On peut alors utiliser 
tout l'arsenal de boîtes à lettres, 
expédier des notes à certains ou des 
messages à tous, avec en prime l'heure 
d'envoi du message, la protection de 
certains messages par mots de passe, 
etc. Les messages sont limités à 30 
pages. Pour les expédier, il suffit de 
cliquer sur les noms des utilisateurs 
connectés qui se déroulent dans une 
fenêtre. On peut difficilement faire plus 
simple. (Prix 295 dollars plus 75 
dollars par titilisateur). Utilisant les 
derniers raffinements des techniques 
d'Apple, }nbox peut relier des Mac à des 
IBM. 


IBM, nous voici 


Car l'autre mouvement spectaculaire, 
c'est le pas fait par Apple vers l'univers 
IBM. Avec notamment l'Apple DCA 
filter. Il s'agit d'un traducteur qui 
traduit en fichiers au format MacWrite 
les fichiers DCA. Ii faut savoir que 
DCA est la norme de standardisation 
d'IBM pour l'échange de fichiers entre 
PC. En clair, on pourra désormais 
traduire un fichier texte écrit par 
exemple sous le Displaywriter d'IBM 
pour le lire ou le travailler avec 
MacWrite. Encore faut-il le transmettre. 


Le transmettre ? Rien de plus simple, 
car voici aussi qu'Apple sort (enfin) un 
produit qui était devenu presque 
mythique : sa carte permettant d'intégrer 


tout compatible MS DOS au réseau 
AppleTalk. Voici une carte vendue 400 
dollars qui pernet donc à un IBM 
d'envoyer un fichier d'impression vers 
l'imprimante Laserwriter ou un fichier 
texte vers le Macintosh. Ou, suivez 
mon regard, de transférer un fichier 
d'édition électronique de PageMaker 
pour IBM vers PageMaker pour Mac. 


Il ne manquerait plus que de pouvoir 
connecter le Mac à une unité centrale 
pour l'implanter solidement en 
entreprise. Vous avez dit unité 
centrale? Voici l'AppleLine 3270 
File Transfer Software. Lui aussi 
développé et vendu par Apple en 
personne. H permet de récupérer sans 
douleur les fichiers des IBM 3270. 


Voici pour les données, mais pourquoi 
s'arrêter en chemin ? On pourrait aussi 
prévoir un moyen de faire tourner 
MS/DOS sur le Mac. Comment ? C'est 
dé jà fait ? Hunter Systems, une société 
de Palo Alo aurait développé un 
logiciel permettant aux possesseurs de 
Mac équipés de processeurs 68020 (les 
Mac Ouveris) de faire tourner les 
logiciels MS/DOS avec un système 
baptisé X DOS ? Mais alors, quel 
apanage reste t-il donc à IBM ? 


Du rififi dans les 
bases de données ? 


Apple finit aux États-Unis de tester un 
SGBD connu sous le nom de code de 
Silver Surfer qui n'est autre que le 
fameux 4e Dimension d'ACI (dont la 
dernière version est tout à fait 
extraordinaire). C'est que la firme à la 
pomme va, en effet, distribuer sous son 
nom le programme écrit par Laurent 
Ribardière. 

Cette décision n'est pas du goût de tous 
aux États-Unis, et les éditeurs des 
programmes concurrents, comme Helix, 
font grise mine et adjurent Apple de 
renoncer à sa décision. Quant à Ashton 
Tate, l'auteur de DBase TE, qui a retardé 
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le lancement de son SGBD), il observe 
les événements. La décision d'Apple 
n'est apparemment pas facile. Il 
manque, en effet au Mac un logiciel de 
bases de données qui soit devenu un 
standard, comme DBase l'a été pour le 
PC. Dans cette catégorie, aucun produit 
ne s'est imposé encore comme Excel a 
pu le faire pour les tableurs. Dilemme 
d'Apple patronner un produit 
extraordinaire comme 4D et risquer de 
décourager tout un secteur de l'édition de 
logiciels, ou attendre et risquer de voir 
naître plusieurs standards dont aucun ne 
s'imposerait. Je n'aimerais pas être dans 
la peau de celui qui a pris la décision... 


Vive l'Apple IIGS 


C'estle cri que vont pouvoir lancer les 
actuels possesseurs d'Apple //e. li est en 
effet prévu qu'Apple procède en guise 
d'upgrade à un échange standard de leur 
machine. [ls pourront troquer leur 
ordinateur favori (repris 4151 Francs) 
contre un GS tout neuf. Et que va faire 
Apple des //e? Bonne question. Ils 
seront récupérés et distribués dans les 
écoles. D'une pierre deux coups : on fait 
plaisir à de bons clients et on essaie 
d'en recruter d'autres. Futé non ? 


Communications 


Revenons au Mac qui s'impose comme 
un fabuleux outil de communication. 
Frédéric Lévy d'Hello Informatique 
a développé sa dernière version de Mac 
Tell : MacTell3. Voici un logiciel 
exemplaire. Il a été le premier vrai 
programme à transformer un Mac en 
Minitel. Il ne cesse de s'améliorer. 
Depuis la première version, on dispose 
d'un langage de procédures permettant 
d'automatiser, par exemple, la 
consultation d'un serveur. Eh bien 
désormais, ce langage de procédures est 
en français. On peut par exemple 
écrire : «Composer le “36 15" (arrêter 
l'exécution si pas de connexion) 

Pause de 10 secondes 

Taper "175040781", suivi de Envoi» 


Plus besoin de jargon compliqué ou de 
simili Basic. Ce logiciel qui permet de 
tout automatiser, prend toute sa valeur 
avec le Modem Diapason d'Hello 
Informatique. On peut alors 
automatiser la consultation d'un serveur 
à une heure donnée. On peut aussi de 
façon ultra simple transformer le Mac 
en un mini serveur accessible depuis 
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n'importe quel Minitel. Parm les autres 
améliorations, signalons l'enrepistre- 
ment automatique de toute une 
consultation qu'on peut ensuite re jouer 
en local. MacTell3 associé au modem 
Diapason forment vraiment un tandem 
inégalé. 


Langages 


Le Mac accueille deux nouveaux 
langages. Grâce à Coral Software, 
un Logo orienté objet et baptisé bien 
sur Object Logo incorporant les 
raffinements du Lisp. Ce langage de 
programmation de haut niveau est bien 
tentant avec son éditeur multi fenêtres, 
son dévermineur et son compilateur. 
Prix : 80 dollars. 


Un autre éditeur américain : Spencer 
a, lui, développé un APL 68000 pour 
le Mac. Les amateurs de ce langage là 
(il en existe pas mal) sont servis. La 
aussi on bénéficie d'une interface aux 
routines graphiques Quickdraw du Mac. 
Pour 295 dollars. 


Textes et Édition 
électronique 


D'abord un traitement de texte. Un de 
plus. C'est celui de la fime Word 
Perfect, qui a réécrit pour le Mac son 
traitement de texte (l'un des plus cotés 
pour le PC). La firme s'est pliée aux 
menus qui font la gloire du Macintosh, 
mais le changement de caractères se fait 
par une icône au bas de l'écran. Word 
Perfect pour le Mac devrait être vendu 
400 dollars. 


Poursuivons par une petite histoire peu 
morale. La firme Lettraset avait acheté 
la toute nouvelle version de 
MacPublisher qui devait s'appeler 
Lettrapage et publié des publicités 
luxueuses sur ce produit. Comme ce 
programme n'était pas prêi, elle s'est 
rabauru sur la dernière version de Ready 
Set Go, la 3.0, dont elle a acheté les 
droits. Conséquence pratique pour les 
utilisateurs : jusqu'à la fin mars, 


Ready Set Go est vendu aux 
États-Unis par son concepteur 
Manhattan Graphics pour 295 


dollars. Ensuite, simplement rebaptisé 
LettraPage, il en coûtera 100 de plus. 
Aucune crainte de ce genre en France. 
C'est la très dynamique société BIP qui 
continue à importer, traduire (en deux 
semaines) et vendre Ready Set Go 3. 


Rappelons que Ready Set Go version 3 
n'a plus rien à voir avec les versions 
précédentes, qu'il permet de créer ou 
manipuler des objets, est doté d'un 
traitement de texte sophistiqué 
permettant de lier des textes pour le 
faire se déverser aux endroits prévus, 
permettant aussi le crénage (contrôle de 
l'espacement des lettres), la césure 
automatique, et la correction 
orthographique, grâce à un module qui 
sera développé avec l'université de 
Compiègne. BIP qui importe aussi le 
programme graphique Cricket Draw, 
ainsi que divers utilitaires, comme 
Acta, un traitement d'idées incorporé 
dans le menu Pomme vend le tout sous 
le nom d'Edit 2000. Un ensemble 
d'édition de bureau très complet qui 
pourrait faire quelque mal au 
quasi-monopole que s'était assuré 
PageMaker. 


C'est encore BIP, qui importe Guide. 
Guide est un "Hypertexte". C'est à dire 
un système perinettant d'accéder à des 
strates d'infonmations. Imaginons un 
dessin d'un moteur. On clique sur le 
couvre cylindre, et dans une fenêtre 
s'inscrit sa référence. On peut encore 
cliquer dans cette référence pour voir par 
exemple apparaître le prix. Et ainsi de 
suite. On peut établir des systèmes de 
référence, des chronologies, etc. Ces 
systèmes sont particulièrement utiles 
pour retrouver des informations 
stockées par exemple sur un disque dur 
ou un de ces CD ROM, ces Compaci 
Discs pour ordinateurs qui vont 
commencer à se répandre. L'hypertexte 
est donc un système électronique 
permettant de lier, référencer, retrouver 
des informations. Il n'est handicapé que 
par un traitement de texte insuffisant et 
un format non standardisé. 


Memorandum de Target Software 
est un de ces logiciels qui vont faire un 
malheur. Il permet de réaliser des notes 
(comme ces notes adhésives qu'on colle 
partout) et de les relier à une cellule 
d'une feuille de calcul. Ce logiciel 
s'installe en accessoire de bureau dans le 
menu Pomme coûte 100 dollars et 
fonctionne avec Excel, Muitiplan, Jazz 
où Works. 


À remarquer encore un logiciel d'édition 
électronique c'est Xpress de Quark. Il 
inclut bien sûr (dans sa version 
américaine) un correcteur orthogra- 
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phique de 80000 mots, la césure 
automatique, etc. Particulièrement 
remarquable la possibilité de faire se 
répandre automatiquement le texte 
autour d'un dessin aux formes 
irrégulières. Prix : 695 dollars. 


Une fois un texte ou une publication 
réalisé, reste encore à l'imprimer. Un 
accessoire particulièrement utile pennet 
d'opérer en tâche de fond, sans mobiliser 
le Macintosh, c'est le Spooler. 
SuperMac Software a développé 
Superspool, un formidable utilitaire 
permettant d'enregistrer un fichier 
d'impression sur le disque et de 
l'imprimer tout en continuant à 
travailler sur le Macintosh. Un 
accessoire qui change la vie des 
utilisateurs pour 60 dollars. Laser 
Superspool permet de réaliser la 
même opération avec une imprimante 
Laser et coûte 150 dollars dans la 
version mono-utilisateur et 395 dollars 
dans la version multiutilisateurs 
(jusqu'à S). 

Un autre accessoire (cette fois matériel) 
permet aussi d'imprimer avec la Laser 
sans immobiliser le Mac, c'est le Mac 
Buffer d'Ergotron. Une petite boîte 
qui s'insère entre le Mac et la 
Laserwriter et pennet de stocker 1 ou 2 
Mégas de texte. 


Outils graphiques 


Ces programmes permettant au Mac 
d'exploiter toutes ses possibilités de 
calculs graphiques l'imposent dans les 
milieux les plus divers. Voici ainsi 
MacSpln vendu Par Bruno Rives 
et Associés. 

C'estun logiciel d'analyse graphique des 
données multidimensionnelles permet- 
tant de découvrir des associations, des 
non linéarités, d'animer et visualiser un 
graphique et données en 3D. Son grand 
avantage est de pouvoir intégrer des 
informations catégorique ou du texte 
dans un graphique. Un outil utile dans 
le marketing, l'ingéniérie ou la 
physique des particules, permettant de 
traiter des informations d'astronomies, 
de géophysique, etc. 


Et l'Apple // ? 


Les Apple IIGS commencent à être 
livrés et le [ va son train. On attend 
pour avril deux nouveautés de taille 
destinées à lui permettre l'accès au 


MS/DOS. 


monde Dos Boot 
développé par Orange Micro est une 
petite boîte contenant un lecteur de 
disquettes et une partie des composants 
d'un compatible IBM PC permettant au 
IIG d'utiliser ses programmes. 
Applled Engineering a préféré 
étudier une carte permettant d'écrire et de 
lire sur un lecteur de disquettes 
indifféremment en format IBM ou 
Apple. La carte comprend aussi un 
processeur 8088 {celui des compatibles) 
mais cadencé à 8 Mhz. Tournant donc 
plus rapidement que celui de l'IBM. Je 
sais que de nombreux lecteurs de Pom's 
sont intéressés par cette possible 
compatibilité et je ne manquerai pas de 
leur donner dès que possible des 
informations supplémentaires sur ces 
produits. 


En attendant, AST Research a déjà 
sauté dans le train de l'édition 
électronique et étudié touteune série de 
produits pour le [IG. Un système de 
numérisation permettant de transférer 
les images prises en vidéo et de les 
travailler avec AST Vision Effects 
IIG (dommage que ça ne fonctionne 
qu'avec le système couleur NTSC). Des 
disques durs, une carte de mémoires 
Ram, etc. Applied Engineering 
vend la feuille de caiculs élecronique 
VIP professional (rapide, puissante 
mais exigeant de la mémoire) avec une 
carte de mémoire pour 250 dollars. 
Quant à Maxx de Icon 
Incorporated, c'est tout simplement 
un volant d'avion qui s'installe dans la 
prise de jeux et permet d'utiliser de 
façon encore plus réaliste les 
simulateurs de vol. Prix 130 dollars. 


Des programmes 
en ruban 


Le Softstrip — déjà en vente depuis 
quelques mois aux États-Unis — 
permet de stocker des données sous la 
forme d'un ruban imprimé en noir et 
blanc. Un lecteur qu'on branche sur le 
Macintosh permet de retransformer ces 
données en fichiers ou programmes. 
Déjà, plusieurs revues d'informmatiques 
publient leurs programmes sous cette 
forme aux États-Unis. Le lecteur permet 
en quelque 30 secondes de lire ces 
bandes et de récupérer le programme 
dans l'ordinateur sans avoir à les taper 
au clavier. Le prix de ce système très 
remarquable est de 2200 Francs. La 
firme qui le produit, Cauzin, s'est 





alliée avec Kodak pour le distribuer 
dans le monde. Sera-ce un jour un 
nouveau standard ? 


Un souhait 


La période des déclarations d'impôts 
s'estune fois de plus écoulée sans qu'un 
éditeur ne propose un système complet 
permettant de déclarer et calculer ses 
impôts sur ordinateur. Ce marché est 
pourtant prospère aux États-Unis. Et 
nos Mac français alors ? 


Adresses 


Think Technologies 
420 Bedford St. Lexington 
MA 02173 


Hello Informatique 
1, rue de Metz 
75010 Paris - Tél. : 45 23 30 34 


Coral Software 

Tél. : 617 868 7440 (aux 
États-Unis) 

Spencer Organization 
PO Box 248 Westwood 
NJ 07675 


BIP 

13, rue Duc 

75018 Paris - Tél : 42 55 44 63 
SuperMac Software 

950 NRengsstorff Av 
Mountain View CA 94043 


Ergotron 

PO Box 17013 Minneapolis, 
MN 55417 

ACI 

6, avenue Franklin Roosevelt 
75008 Paris - Tél. : 43 59 89 55 


Bruno Rives et associés 
6, avenue Franklin Roosevelt 
75008 Paris - Tél. : 42 89 02 36 


Target Software 

TéL : aux États-Unis : 
(305) 252 0892 
Applled Engineering 


PO Box 798 Carrollton 
TX 75006 


Orange Micro 
14090 n.Lakeview 
Av. Anaheim CA 92807 


AST Research 
2121 Alton Av. Irvine CA 92714 


Icon Incorporated 
1611 116th Av NE Bellevue 
WA 98004 
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Un nouveau produit Pom's : BananaSoft 


Pom's vous propose un nouvel utilitaire qui simplifiera les 
rapports houleux qui existent souvent entre le programmeur 
et l'Applesoft. E.P.E. nous donnait un éditeur digne de ce 
nom; voici maintenant une amélioration des possibilités du 
Basic ainsi que la correction de ‘bugs’. 


Le but 


Les principaux objets de Bananasoft sont : 


+ réconciler la carte 80 colonnes et le Basic (problèmes du 
GET, du HTAB...) ; 

+ aider le Basic dans son travail sur les chaînes (nouvelles 
fonctions, ramassage des poubelles 15 fois plus rapide) ; 

+ permettre la saisie au clavier sans attendre la 
disponibilité du Basic : il s'agit d'un véritable ‘buffer 
clavier’ de 32 caractères. 

On se rapprochera aussi du Basic Microsoft 5.x par des 

fonctions telles SWAP, ERASE, LINE INPUT sans pour 

autant encombrer la mémoire {moins de 4Ko). 


Quelle configuration ? 


Bananasoft fonctionne sans problème sur Apple ][+ (avec 48 
Ko et ROM autostart), / /e, / /e 65C02 et //c). Bien entendu, 
Bananasoft est à même de tirer parti de la présence 
éventuelle d'une caite langage. 


Bananasoft reconnaît certaines cartes 80 colonnes : 


Apple Text card et Extended 8 col. pour l'Apple //e; 
Carte compatible (Eve Chat Mauve par exemple) ; 
Circuiterie interne de l'Apple //c; 

Carte 80 col.Videx Videoterm pour Appie 2+ (firmware 
2.4 : si votre carte reconnaît les séquences ESC I, J, K,M au 
clavier, elle conviendra). 


Le système d'exploitation supporté est le DOS 3.3 en version 
48 Ko uniquement. Bananasoft lui apporte bien sûr quelques 
raffinements comme la possibilité d'entrer ses commandes en 
mode minuscules. 


Tout programme Applesoft peut être exécuté sans 
modification sous Bananasoft, si l'une au moins de ces deux 
conditions est vérifiée : 


° le buffer clavier est désactivé durant l'exécution dudit 
programme ; 
+ le programme n'accède au clavier que parles ordres GET, 


INPUT ou LINE INPUT (pas de PEEK/POKE/WAIT). 


Les modifications à apporter aux programmes ne s'inscrivant 
pas dans ce cas là sont explicitées dans la documentation. 
Notons l'existence de deux nouvelles commandes DOS : 
INSTALL et INHIBIT gérant la réception de caractères dans 
le buffer, deux outils puissants pour résoudre le problème 
précité. 

Bananasoft se reloge de lui-même entre ie DOS et les buffers 
et est de cette façon totalement protégé d'une modification 
du nombre de ceux-ci (par la commande MAXFILES'). 


Les possibilités 


Les améliorations portent sur 4 points : 


EE — — — —— — "— —— —]——"—]"—— ————"  ——————— 
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Amélioration des fonctions du DOS 
e Minuscules dans les ordres DOS. Aïnsi : 
Jbsave TITLa$82000,1$1/fff 


est acceptée par le DOS qui effectue une conversion 
minuscules/MAJUSCULES sur toute la ligne, exceptée les 
dénominations de fichiers. 


° une nouvelle option est fournie pour l'ordre BSAVE, 
l'option 'E’ (comme END). 


IBSAVE TITLA$2000,ES$3FFF 
est équivalent à : 
JBSAVE TITI,A$2000,L$2000 


naturellement, les 2 options ‘E’ et ‘L’ 
mutuellement. 


s'excluent 


+ Un nouvel ordre est apporté au système : il s'agit de ‘-” 
(prononcer SMART RUN). Les utilisateurs de ProDOS 
connaissent déjà cet ordre ; il s'agit d'“exécuter‘” un fichier 
quel que soit son type. SMART RUN sera équivalent à un 
EXEC si le fichier ouvert est du type texte, à RUN si celui-ci 
est un programme BASIC Integer ou Applesoft, ou à BRUN 
s’il s'agit d'un fichuer binaire. 

+ Les commandes INSTALL et INHIBIT ont été ajoutées au 
DOS afin de simplifier l'exploitation du buffer clavier. 


+ La commande FP ne déconnecte pas Bananasoft dans le cas 
où le langage courant était l'Applesoft mais le réinstalle si 
le langage était l'Integer. 

e Et enfin, the last but not least, la commande INIT 
conserve son fonctionnement normal : elle installera sur 
disquette une version standard du DOS. 


+ Dernier petit détail, Bananasoft permet aux possesseurs 
d'Apple ][+ (les pionniers !) de ne pas tomber en syncope 
devant des écrans “francophones”, un mode de visualisation 
permet à ceux-ci : 


- une conversion minuscules/MAJUSCULES des caractères 
sortant sur leur écrans 
- une conversion des caractères ‘éèàüc’ en ‘eeauc’…. 


Amélioration des fonctions 
standard d'Applesoft 


e Les intructions BASIC 'PR£' et 'IN£' ne déconnectent plus 
le DOS. Ainsi : 


10 PREI 
est devenu équivalent à: 
10 PRINT CHRS (4);"PR£1" 


+ Un ramassage des poubelles ("garbage collection") est 
intégré dans Bananasoft, totalement transparent, il vous 
apporte une multiplication de la vitesse d'exécution des 
intructions portant sur les chaînes de caractères par un 
facteur supérieur à 2... Bananasoft reloge de lui-même une 
version améliorée de FRE(16) sur la carte langage si celle-ci 
a été détectée lors du boot, libérant ainsi plus de deux pages 
(1 page = 256 octets) pour le Basic. À noter que ce chargement 
ne perturbe en rien le fonctionement du langage BASIC 
Integer si celui-ci est lui aussi chargé en RAM. 


+ Toutes les instructions Applesoft de positionnement du 
curseur (HTAB ainsi que le séparateur ’, dans l'ordre 





PRINT) sont désormais compatibles avec les 80 colonnes à 
l'écran. 

° L'instruction GET ne détectait pas sous Applesoft la 
frappe de la touche ESC lorsque les programmes de gestion 
80 colonnes (anciennes ROM) de l'Apple //e était activé. 
Bananasoft résout ce problème, 


+ Les instructions HOME et HTAB sur Apple ][+ ne 
fonctionnaient pas, ou mal, lorsque le périphérique de sortie 
était la carte 80 colonnes, ces petites misères ne sont plus 
maintenant qu'un mauvais souvenir. 


e La fonction POS0 est opérante maintenant également en 
80 colonnes. 


Nouveaux mots-clé au 
vocabulaire d'Applesoft 


+ RESTORE <n'-delligne> 

Même signification que pour le Basic Microsoft 5x, 
repositionne le pointeur de DATA au numéro de ligne 
spécifié, numéro qui est optionnel. 

e SWAP nom-var,nom-var 

Assure l'échange des valeurs prises par les deux variables 
spécifiées. Celles-ci doivent être du même type (entier, réel 
ou chaîne) sinon une erreur du type TYPE MISMATCH est 
signalée. Ex : SWAP A$,FFS$ 

° ERASE nom-de-tableau 

efface de la mémoire centrale le tableau de variable dont le 


nom est spécifié. E x: ERASE G$. 


° LINE INPUT <constante-littérale;>nom-ver. 

Permet d'entrer toute séquence de touches frappée au clavier 
et de la stocker dans une variable chaîne de caractères. Les 
seuls caractères de contrôle étant interceptés par le 
programme sont RETURN pour valider, et flèches gauche et 
droite pour corriger. Ex: 


LINE INPUT ‘init. imprimante ? ",II$ 


Ceci permet de saisir directement au clavier ESC-e par 
exemple pour faire passer l'imprimante en caractères Élite. 
e “LIST<n‘-de-ligne><,><n'-de-ligne> 
La syntaxe est identique à celle de l'instruction LIST de 
l'Applesoft. La différence tient dans le format d'affichage 
des mots-clé : ceux-ci ne se voient pas systématiquement 
entoutés par des espaces. Ex : 
“LIST 1009,1080 
e INSTR(<indice de départ,>chaîne,chaïîne) 
Cette nouvelle fonction offerte par Bananasoft cherche la 
chaîne B$ à l'intérieur de la chaîne A$ en partant du 
caractère N, et retourne la position de la chaîne B$ dans P. 
P=INSTR(N,A$,B$) 
Exemple : 


A=INSTR(5,"SALUT LA COMPAGNIE! SAL 
UT!","SALUT”) 
retournera la valeur 21 dans A, le premier SALUT après le 
cinquième caractère apparaissant en position 21. 
+ STRINGS(N,C) 
Retourne une chaîne de N caractères C. Si C est une 
expression alphanumérique, le caractère utilisé sera le 
prem'er caractère résultant de l'expression. Exemple : 
A$=STRINGS$(4,"01234") 
retournera la chaîne “0000” dans A$, A$=STRINGS(4,48) 
retourne aussi "0000" dans A$. 


+ Pour ceux pratiquant une programmation plus proche de la 
machine, Bananasoft leur permet des POKE et des PEEK sur 


des mots de 16 bits (2 octets consécutifs de la mémoire) : les 
nouveaux termes seront respectivement : 


DOKE adresse:mot_16 bits (adresse < poids faible - 
adresse+1 < poids fort) 


DEEXK(adresse) renvoie le mot_16 bits contenu dans adresse. 
Ex: 
DOKE 1780,DEEK(&H300) 


e Les constantes hexadécimales sont admises dans toute 
expression arithmétique : &HFF équivaut à 256. Exemple : 
AC = &HEC58 : CALL AC 


e Il est désormais possible de connaître l'adresse d'une 
variable en mémoire, ceci par emploi de la fonction 
VARPTR: 

VARPTR(non:_variable) 


renverra l'adresse où se trouve stockée la valeur d'une 
variable numérique ou le descripteur d'une variable chaîne 
de caractères. Une technique d'emploi de routine en langage 
machine dans un programme BASIC pourrait alors être 
celle-ci : 


CALL DEEK(VARPTR(A$)+1} 


où la routine relogeable se trouverait être dans la variable 
AS. À noter que cette méthode est aussi populaire sur 
certaines machines (Macintosh, TRS80) que la routine 
SHLAM sur Apple //. 


Le buffer clavier 


À la mise en route du système, la téception des caractères est 
inhibée et la gestion clavier est normale ; c'est la commande 
DOS INSTALL qui autorise le buffer à fonctionner. La 
réception des caractères est lancée durant: 


+ tout appel à CHRGET/ CHRGOT en page zéro ; 

e tout appel à COUT passant par le relais du DOS; 

° tout appel à RDKEŸY passant par le relais du DOS et 
nappelant pas un périphérique clavier ; 

+ tout appel à RWTS. 

Les caractères tapés au clavier seront stockés en attendant la 

fin du travail en cours (anticipation lors de calculs lents par 

exemple). 

Lorsque le buffer clavier est activé, la frappe de certaines 

touches provoque divers processus. 


- La frappe de <CTRL><X> provoque l'initialisation 
complète du buffer. 

- La frappe de <CTRI><C>, outre qu'elle provoque elle 
aussi l'initialisation du contenu du buffer, n'est pas pris en 
compte par lui et le code reste dans l'adresse tampon de 
l'Apple ($C000). 

- Lorsque le périphérique de sortie est l'écran, la frappe de 
<CTRL><S> n'est pas pris en compte et son code teste dans 
l'adresse tampon de l'Apple. La fonction de cette touche (le 
“gel” de l'écran) est alors assuié par le driver vidéo. 


L'adaptation (simple) de vos programmes au bénéfice de ce 


buffer est discuté en détail dans la documentation et fait 
l'objet d'un exemple sur la disquette. 


La disquette 


La disquette 5,25 pouces au format DOS 3.3, comporte les 
sources, l'objet et une démonstration. Des informations à 
destination des programmeurs sont apportées dans la 
documentation jointe. 


Franco 200,00 F TTC, port avion hors CEE 15,00 F, 
bon de commande page 74. 
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Courrier des Lecteurs 





Les slots du IIGS 


Sur mon futur GS, pourrais- je 
utiliser simultanément les ports 
intégrés et mes cartes interfaces ? 


M. P. Mykiéta, 92 Gennevilliers 


Oui et non : un tableau de bord 
(accessible par CTRL-OPTION- 
ESC ou CTRL-OPTION- 
RESET) vous donne pour chacun 
des slots le choix entre votre carte 
ou celle qui est intégrée, par 
exemple en slot 4, votre interface 
ou la carte souris. À vous de 
choisir. 


Minitel et Apple(s) ?? 


Que pensez de votre n°27 sur la 
communication ? Le montage que 
vous proposez pour la liaison est 
séduisant mais le support 
technique d'un club me dit qu'il 
faut l'éviter, plusieurs personnes 
ayant claqué leur micro. S'il est 
aussi simple, pourquoi 
proposez-vous le câble à 
225,00 F alors qu'on le trouve 
parfois à 900,00 F ? Un 
informaticien qui commercialise 
les liaisons PC-Minitel me dit que 
seul le modem Sectrad 300 
convient et que la liaison //c 
Minitel est impossible. 


M. Raymond, 77210 Samoreau 


Rassurez-vous, la liaison 
proposée dans les Pom’s 27 et 28 
fonctionne sans souci, telle que 
décrite, chez nombre de nos 
lecteurs et nous pratiquons ici 
intensivement la transmission de 
fichiers à l'aide d'InterPom's. 


Les conseils de tel ou tel ? Que 
dire si ce n'est de faire confiance 
aux interlocuteurs qui ont la 
pratique de la communication ? 
Le modem 1200 bauds du Minitel 
ne fatiguera par plus le /c qu'un 
modem 300 bauds (votre Apple 
transmet ses données à l'Image 
Writer à 9600 bauds....). 

Le prix ? Nous ne saurions rien 


expliquer mais précisons que les 
câbles à 900,00 Frs sont 


fréquemment accompagnés d'un 
logiciel d'émulation Minitel. 


Enfin, en cas de difficultés de 
mise en œuvre des programmes 
Pom’s, nous vous répondrons 
téléphoniquement : 

(1) 39 51 2443. 





Le moniteur étendu... 


de T. Le Tallec (Recueil Pom's 
n°2) fonctionne normalement sur 
l'Apple !/c après avoir apporté les 
modifications suivantes. 

Dans le source : 

L 71 CHARI 
L 72 CHAR2 
L 75 RTBL 
Dars l'ob jet : 
9141:D7 (1E) 

9142:F9 (FA) 

93A7:BA (B4) 

93AF:B4 (BA) 

93B4:B4 (BA) 

(entre parenthèses figurent les anciennes 
valeurs) 

M. P. Adang, 52110 Blaiserives 


SF9BA (F9B4) 
SF9B4 (F9BA) 
$FAD2 (FB19) 


Minitels face à face 


Comment, par programme, faire 
que deux Minitels puissent se 
reconnaître après connexion ? 
Après une connexion manuelle, il 
n'y a pas de porteuse sur læ ligne. 


C. Laron, 13100 Aix. 


Il est nécessaire que l'un des 
deux Minitels soit retoumable, 
c'est-à-dire qu'il sache émettre à 
1200 bauds et recevoir à 75 au 
lieu de l'inverse en fonction- 
nement sur serveur. 

Vous pouvez vous inspirer des 
programmes ‘“InterPom's” du 
numéro 28 : 


Côté Minitel retourmable, envoyer 
sur la prise péri-informatique les 
caractères suivants : 27, 57, 104, 
217,57 HE Ce quipeutre"le 
retournement, provoque la 


connexion et l'émission d'une 
porteuse à 1700 Hz (+400) qui 


déclenchera la porteuse à 420 Hz 
(+30) du Minitel de votre 
correspondant. 





Prochainement 


Pom's vous proposera de 
nouveaux programmes 
d'enregistrement et 
d'exploitation des pages 
Minitel pour Apple /} et 
Macintosh. Écrits en 
assembleur, ils seront dotés 
de puissantes fonctions de 
filtrage et de récupération de 
fichiers, ils fonctionneront 
sur toutes les machines et le 
port communication du Ilgs 
sera exploité. Les suggestions 
sont les bienvenues... 


Dans les prochains 
numéros, 


É un programme de gestion 
d'un écran virtuel, 

é des courbes récursives en 
Pascal, 

é un numéroteur de 
fichiers ProDOS, 

é DherTools pour 
manipuler les pages 
graphiques, 

d un programme de tracé 
de courbes, 

d un jeu de réflexes et de 
réflexion, 

éd des essais hard et soft, 

é des éléments pointus sur 
les nouveaux matériels. 


Pour le Macintosh, 


é des accessoires de bureau, 

é des utilitaires, 

éd des applications 
autonomes de la veine 
d'InterPom's… 
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Bon de commande 


Disquettes 

BASICIUM (cf. Pom's n° 13) à 200,00 F 

É PE MSIE 800 Ko ou 140 Ko (cf. Pom's n° 29) à 200,00 F 

Échange E.P.E. 5.1... 800 Ko ou 140 Ko (cf. Pom's n° 29) 

PASCAL (cf. Pom's n° 15) 

MAX (Moniteur étendu) (cf. Pern's n° 18) à 150,00 F 

DOMINOS (cf. Pom's n° 19) à 80,00F 
(cf. Pom's n° 21) à 200,00 F 
(cf. Pom's n° 25) à 80,00 F 
(cf. Pom's n° 26) à 200,00 F 
(cf. Pom's n° 29) à 200,00F 


Recueils 


N°1, recuell des revues E à 4 à 140,00 F 
Disquettes d'accompagnement 1 à 4 à 200,00F 
N°2, recueil des revues 5 à 8 140,00 F 
Disquettes d'accompagnement 5 à 8 200,00 F 
N°3, recueil des revues 9 à 12 140,00 F 
Disquettes d'accompagnement 9 à 12 200,00 F 


Revues, disquettes 
Revues4 7 8 
Revues 10 11 12 13 14 15 16 17 18 1920 21 22 23 242526 
Revues 27 28 29 


Disquettes Apple // 140 Ko 5,25 pouces 
AR Eh nt SAT) MOINS EN ETES 
16.170160 201 21, 2223024 25m 2602702829 
Disquettes Apple // 800 Ko 3,5 pouces 
29 80,00 F 


Disquettes Macintosh 
14/15/16 groupées 150,00 F 


178 1920021822 23%2402502.62%128#29 à 80,00F 
Mac‘A à 80,00F 


MacAstuces 200,00 F 
“Raccourci” à 200,00 F 
Abonnements Pour 6 numéros à partir du n°... 


Abonnement à la revue seule à 225,00F 
Abonnement revues + disquettes Apple // 140 Ko 5,25 à 525,00 F 
Abonnement revues + disquettes Apple // 800 Ko 3,5° 625,00 F 
Abonnement revues + disquettes Macintosh à 625,00F 


Reliures toilées 
Pour 6 numéros, un an de Pom’s à 60,00 F 


Supplément avion hors CEE : ajoutez 15,00F par numéro et/ou disquette Total TTC : 


Envoyez ce bon et votre règlement à : ÉDITIONS MEV - 12, rue d'Anjou 788860 VERSAILLES 


Nom : 


Adresse : 





Carte bleue/VISA DAC TR ne srmcosite 
date d'expiration: ____ | 
montant : __  F signature : 


Pom 
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Bon de commande “Commumnicetion" 


Pom's 26: Apple !, Carte SaperSére & CPM Ponge permet 2e fige sms ET om CP 
Porm's 27: Apple 0, Care SaperSiese Æ CP Time perte sm mm DE 
Apple  & Moce Programme L'enepremec © fe ose L'r des ur Meme Guur eee Gien 
Macseoske 4 Momcet FProgeaume É'exrgremmc € de roses à luc des eme mé 


Pons 8 lecer Pom : Apple D € lacerFom : Macsescé pour wacsmecre des mers per Men 





Je désire recevoir : Câble MinitelApple Ï+, Me, Mes, Iigs avec SSC* à 
Câble NMfinlteU Apple //c à 

Câble Minitel/Macintosh 128, 512 à 

à 


Câble Minitel/Macintosh Plus 


* les programmes des numéros 26 à 28 ne fonctionnent sur le Ilgs qu'équipé d'une Total TTC 
carte SuperSérie Apple. Pour relier votre IIgs au Minitel en utilisant le port intégré, 


commander un câble Macintosh Plus. : 
Supplément avion hors CEE : ajoutez 15,00F 


Envoyez ce bon et votre règlement à : ÉDITIONS MEV - 12, ruc d'Anjou 78000 VERSAILLES 


Nom : 


Adresse : 


Carte bleue/VISA DATE NACRE lue en LS 
date d'expiration: ____ à 
montant: _  ) #F signature : 





Comme à l'accoutumée, la disquette Disquette Pom's 


Porm's “Mac 29” contient les fichiers et 

programme - exécufables et sources - - 

publiés dans le cahier Macintosh de ce “Macintosh 29” 
numéro. En plus, nous avons ajouté 5 

accessoires de bureau : 


e dECAD Calculator, une calculatrice 
scientifique à mémoire ; 

+ Hex Calculator, une calculatrice 
décimale/hexadécimale appréciée des 
programmeurs ; 

+ Word Count, pour connaître le nombre 

de mots, caractères et paragraphe dans 

un document ; 

Telegraph transforme en code morse 





visuel et sonore tout ce qui est frappé | —— | AE utilisateurs 

au clavier, ou collé ; . | Al d'Appte 
° Extras permet de connaître à tout É à Ù | AE a 

moment la place disponible sur le fe et mtimmlit| fl on 

disque, en mémoire, de renommer Un | ee) ose Lomeol AE LOWER }})J£ 
et une très intéressante application - —— : 
DA/Test - qui permet d'essayer ou 
utiliser des accessoires de bureau sans les 
installer dans le menu 6. De fait, il évite kr So ponogsoss Chars 11000 
aussi la saturation dudit menu avec des HEILE En Words 441 


accessoire d'usage peu courant. 
Be P Lines 108 


Disquette Pom's “Macintosh 29” e ; at 
80,00 FYs - Bon de commande ci-contre. nn harnee 
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